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PREFACE 


MANUAL OBJECTIVES 


The intent of this manual is to present some of the different uses of 
the VAX-11 Record Management Services (VAX-11 RMS), so you can tailor 
the variouS components and routines to Suit your record management and 
record processing needs. | 


INTENDED AUDIENCE 


This manual is intended for VAX/VMS users who want to develop a_ basic 
understanding of how to use VAX-11 RMS I/O routines within their 
programs. VAX-1l1l MACRO programmers generally use the VAX-11 RMS 
routines directly within their programs. High-level language 
programmers normally use the I/O facilities of their particular 
language to utilize a subset of VAX-1l1l RMS facilities. However, they 
may also use VAX-11 RMS directly through a call facility within their 
language. 


This manual is aimed at VAX-11 MACRO programmers. It iS assumed that 
you are familiar with and understand the VAX-11 MACRO conventions for 
constructing symbols and the use of numbers, operators, and 
expressions. 


STRUCTURE OF THIS MANUAL 
The information in this document is structured as follows: 


Chapter 1 provides an overview of the salient features of the data 
record file organizations that can he created, displayed, and 
maintained by using VAX-11 RMS. This information will help you to 
determine the type of file organization best suited to your data 
record management requirements. 


Chapter 2 describes the VAX-11 RMS routines and the user control 
blocks defined within your program, which are used to communicate 
between your program and the VAX-11 RMS routines. 


Chapter 3 describes file specification syntax and the file 
specification defaults. 


Chapter 4 describes how you create and process data record files’ by 
sequential access mode with three file organizations. 


Chapter 5 describes how you create and process data record files by 
uSing random access mode. 


Appendix A provides additional programming examples. 


Appendix B describes the RMS File Analyzer. 


ASSOCIATED DOCUMENTS 


A prerequisite to this manual is the Introduction to VAX-1ll_ Record 
Management Services Manual, which describes in detail the concepts of 
file organization, record access modes, record formats, and _ other 
concepts required for your understanding of VAX-11 RMS file 
construction. You should have available a copy of the VAX-1l Record 


Management Services Reference Manual. This document contains the 


=  prereremrnre ee ern 


complete description of the components of VAX-1l1 RMS, and therefore 
constitutes a source reference for the materials presented in this 
user's guide. 

Other manuals allied to this document are: 


@ VAX/VMS Primer 


e VAX-11 BLISS Language Reference Manual 


vi 


SUMMARY OF TECHNICAL CHANGES 


This manual has been revised to reflect VAX-11 RMS support for wild 
card characters and uppercase translation of logical names. 


Vii 


CHAPTER 1 


FILE GUIDELINES: DETERMINE YOUR NEEDS 


The VAX-11 Record Management Services (VAX-11 RMS) are system routines 
that provide an efficient and flexible means of accessing files and 
their records. The VAX-11 RMS routines speed up and simplify the task 
of program development. 


1.1 THE RATIONALE FOR RECORD MANAGEMENT 


AS a user writing application programs, you need to create programs 
that will (1) accept new input, (2) read or modify data, and/or (3) 
produce output in some meaningful form. These programs can be, at 
times, somewhat difficult to produce, because the operations required 
in handling the data can be complex. However, many of these 
operations are baSically the same, with only minor modifications 
needed depending on the operation. Therefore, generalized routines 
that encompass a wide variety of functions can be very useful to you 
in dealing with your file and record management programming needs. 
VAX-11 RMS provides such generalized routines. 


VAX-11 RMS routines are an integral part of the operating system; 
they are always there. You need not perform any special linking or 
declaring of global entry points to access the routines since a simple 
reference to a routine generates the appropriate call. Calls to 
VAX-11 RMS routines are consistent with the VAX/VMS calling standard; 
arguments are passed and resultS and errors are returned in the 
Standard VAX/VMS fashion. 


Because the file organization is fixed for the life of the file, it is 
very important that you decide, before you begin to write your 
program, which file organization best meets your requirements. The 
following questions should help you determine your file organization 
requirements. 


e How will the records be accessed? Will the whole file or only 
selected records be processed? Will the records be accessed 
randomly? Will the records be accessed by other nodes in a 
network? 


e What kind of record maintenance is needed? Must records’ be 
updated, added, or deleted? 


e What is the record format? How large are the records; are 
they all the same size? What is their maximum size? 


e What is the total size of the file? Is this size fixed or can 
it be extended? 
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e Where will the file reside? 
cards. Will the file be 
terminal? 


written to a line 


As these questions indicate, many issues affect your choice of 
organization. Often, the choice is not clear-cut. 
some of the advantages and disadvantages of the three 


organizations: sequential, relative, and indexed. 


types of 


Table 1-1 
File Organizations: Advantages and Disadvantages 








File 
Organization 


Advantages Disadvantages 
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Sequential Allows sequential 
access only 
for some high-level 


languages 


Uses disk and memory 
efficiently: 

minimum disk overhead, 
block-boundary crossing 


Provides optimal usage 
if the application 
accesses all records 
sequentially on each run 


file 


Allows sharing by 
Provides flexible record multiple, 
format 
user's implemented 
synchronization. 


(The exception is 


Allows data to be stored 
on many different types 
of media, in a device- 
independent manner records; 
manages the 
synchronization for 
such files). 


Allows easy file 
extension 
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Allows data to be 
stored on disk only 


Relative Allows sequential and 
random access by record 


number for all 


a RhaR EAGT Tremere tee et OEE rill weetreddredint—rinvton ADIOS UY abet .disirathl ssasdadntemtr a ifnasdlls SRSA APSE 


Allows records to be 
added only to end of 


concurrent 
users, but only with 


512-byte fixed-length 
VAX-11/RMS 


Will the medium be tape, disk, or 
printer or 


file 


Table 1-1 lists 


file 





languages 







Allows random record 
deletion and insertion 
Allows records to be 
read- and write-shared 


Requires that programs 
contain a record cell 
for each relative 
record number 
allocated; therefore, 
files may be 

sparsely populated 


Requires that record 
cells be the same size 


Allows record 
insertion only to 
empty cells (or 
at the end of 





the file) 


renere nein eine Afi AMBER TREN LRN ORME ARANETA genannten haan 


(cE NRE: =F Tak enn MnpReLD a= me mentee e—tinn — nenkene diem idenaninmi ns Siem mtn wt Aon pe entree ere erent te te NAAT 


(continued on next page) 
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Table 1-1 (Cont.) 


File Organizations: Advantages and Disadvantages 

























File 
Organization 


Advantages 


Indexed Allows sequential and 
random access by key 


value for all languages 


Allows random record 
deletion and insertion 


Allows records to be 
read- and write-shared 
Allows variable-length 
records to change length 
on update 


Allows easy file 
extension 
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Disadvantages 


Allows data to be 
stored on disk only 


Requires more disk 
space 


Uses more of the 
central processing unit 
to process records. 
Generally requires 
mulitple disk accesses 
to prrocess a record. 


CHAPTER 2 


VAX-11 RMS STRUCTURES AND INTERFACE 


The facilities of VAX-11 Record Management Services (VAX-11 RMS) are 
available at run time through the calling of record management 
procedures. Communication with the VAX-11 RMS routines is by means of 
user control blocks defined within your program. This chapter 
provides an introduction to these routines and control blocks, and the 
macro instructions that facilitate their uSe. 


2.1 USER CONTROL BLOCKS 


VAX-11 RMS uses data structures called control blocks to communicate 
between your program and the VAX-11 RMS routines. 


The VAX-11 RMS’ routines also create their own internal data 
structures, reflecting the information in your control blocks. These 
internal data structures reside in the process control region, in what 
is called the I/O segment. 


You set up fields in the control blocks to reflect exactly what 
operations you want to perform, and then call the routine. The 
routine uses these fields as input to perform the requested action 
and, as necessary, uses these fields again to return Status and other 
related information. The amount of information your program exchanges 
with VAX-1l1 RMS (both as input and output) depends on the nature of 
your request and the file attributes. 


Table 2-1 lists the control blocks that are part of your. program 
interface with VAX-11l RMS. 


You must allocate space for these control blocks within your program. 
You can do this either at assembly time or run time. VAX-11 RMS 
provides macro instructions for the assembly~-time allocation and 
initialization of the control blocks, shown in the Macro Name column 
of Table 2-1. At run time, you can directly manipulate the control 
blocks through either the defined symbolic offsets or the "store" 
macro instructions. For efficiency, and to prevent a warning message 
from the assembler, align each control block on a longword boundary. 


In general, you must allocate one File Access Block (FAB) for every 
open file in your program, and one Record Access Block (RAB) for each 
individual record stream connected to a FAB. (More than one RAB-~ can 
be connected to each FAB’ Simultaneously.) The Extended Attribute 
Blocks (XABS) and the Name Block (NAM) are optional, depending on 
whether you need the information they provide and the functions they 
perform. 
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Table 2-] 
Control Blocks 


Function 








Describes a file and contains SFAB 
file-related information 


File Access 
Block (FAB) 


Record Access 
Block (RAB) 


Describes a record and contains SRAB 
record-related information 


Contain file attribute information SXABxxx 
beyond that in the File Access 
Block 


Extended 
Attribute 
Blocks (XAB) 
Name Block (NAM) Contains file specification 
information beyond that in the 
File Access Block 
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1. The variable xxx iS a 3-character XAB-type specification. 


2.2 VAX-11 RMS ROUTINES 


The VAX-1l1 RMS routines execute in executive mode. VAX-11 RMS 
protects its internal data structures and buffers from destruction by 
user programs, and ensures that files will be left in an orderly 
state. When your program exits, an I/O rundown routine closes all 
files, writing buffers and file attributes as required, even when’ the 
exit is the result of a severe error. 


VAX-11 RMS routines are integrated in ae straightforward manner. 
Within your program, you place a call to the appropriate routines. 
Generally you make these calls with run-time macro instructions. At 
run time, the expanded code of these macro instructions causes calls 
to be made to the appropriate routines, which refer to the appropriate 
control blocks. These calls are consistent with the VAX-11 calling 
Standard. You can specify the parameters with keywords; you can list 
them in any order or omit the keywords entirely. 


When you call a routine, you set up an argument list to define the 
associated control block (FAB- or _ RAB) and any optional completion 
routines to be called if an error occurs. 


The operations performed by VAX-11 RMS routines are classified as 
either file oriented or record oriented, requiring the address of a 
FAB and RAB respectively as the control block argument in a call to 
any of them. 


Table 2-2 summarizes the essential macro instructions for run-time 
processing. 
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Table 2-2 
Macro Instructions for Run-Time Processing 


| cry | Macro Name Service 
$CREATE 












Creates and opens a new file of any organization 
(sequential, relative, or indexed) 
















File 
Processing 


8 mei 





Opens an existing file and initiates file processing 






Returns the attributes of a file to user program 


Extends the allocated space of a file 





Terminates file processing and closes the file 
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Deletes a file and removes its directory entry 





Record 
Processing 


Retrieves a record from a file 








Writes a new record to a file 
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SUPDATE 






Rewrites an existing record in a file 


$DELETE Deletes a record from a relative indexed file 
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Locates and positions to a record and returns its RFA 





$CONNECT Connects record stream to a file 
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$DISCONNECT 


Disconnects a record stream from a file 








Unlocks a record by its RFA 


LE A is RETR RA 


SFREE Unlocks all previously locked records 


SWAIT Determines the completion of an asynchronous record 
operation 

$REWIND Positions to the first record of a file 

STRUNCATE Truncates a sequential file 


$FLUSH Write modified 1/O buffers and file attributes 












Causes processing of a magnetic tape file to continue to 
the next volume of a volume set 
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Block I/O Retrieves a specified number of bytes from a file 
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Writes a specified number of bytes to a file 


wc tT EA 








Spaces forward or backward in a file 








$SENTER 


File 
Naming 


Enters a file name into a directory 











$PARSE Parses a file specification 


$REMOVE Removes a file name from a directory 
$ RENAME Assigns a new name to a file 


$SEARCH Searches a directory for a file name 


enema sae 
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CHAPTER 3 


SPECIFYING THE FILE TO BE PROCESSED 


A file is a logically related collection of records. All the 
information that the operating system reads and writes on behalf of 
users' requests is defined in terms of files and records. 


File processing is influenced by the hardware device that performs the 
actual data transfer (reading or writing). Devices are classified as: 


e Mass Storage devices 
@e Record-oriented devices 


Mass storage devices provide a way to save the contents of files on a 
magnetic medium, called a volume. Files that are thus saved can be 
accessed at any time and updated, modified, or _ reused. Disks and 
tapes are maSsS storage devices. 


Record-oriented devices read and/or write only single physical units 
of data at a time, and do not provide for permanent storage of the 
data. Terminals, printers, and card readers are record-oriented 
devices. Printers and card readers are also called unit record 
devices. In certain cases, magnetic tapes are treated as_ record 
oriented devices. , 


3.1 FILE SPECIFICATIONS 


File specifications provide the system with all the information it 
needs to identify a unique file or device. 


File specifications have one of the following formats: 
@e node::device: [directory] filename.type;version 
e node::"foreign-file-spec" 
@e node::"task-spec" 


You must use the punctuation marks and brackets to separate the fields 
of the file specification. Either matching square brackets or angle 
brackets may delimit the directory specification, The type and 
version specifications may be separated by either a period (.) or a 


semi-colon (;). The fields and their contents are listed below. 


SPECIFYING THE FILE TO BE PROCESSED 


Field Contents 
node Node name and optional access control string 
device Device name 


directory Directory name and optional subdirectory names 

filename File name 

type File type 

version File version number 

Pigsteig. Designates a program to communicate with on a_ remote 
node or designates a file specification that is not to 
be parsed locally. 


Directory names, file names, file types, and version numbers’ apply 
only to files on disk or tape devices. For record-oriented devices 
(terminals, printers, and card readers), only the device name field of 
the file specification is required; fields following it are ignored. 
Blanks, tabs, and null characters are accepted but ignored in file 
specifications. 


You may use wild card characters in file specifications. These are 
more fully discussed in Section 3.1.5. The ellipsis [...] and minus 
Sign [{-] wild card characters can be usSed only in the directory name 
field of a file specification. The asterisk (*) and percent sign ($%) 
wild card characters can be used in the following fields of a file 
specification: 


e Directory name 

e File name 

e File type 

@ iis version number 


Appendix C of the VAX-11 Record Management Services Reference Manual 
contains a rigorous explanation of the entire syntax for file 
specifications. The following sections, however, provide sufficient 
information for you to have a basic understanding of how to supply 
file specifications. 


3.1.1 Network Nodes 


Each computer system in a DECnet network is uniquely identified by a 
1l- through 6-alphanumeric character node name. Optionally, a node 
name may be followed by an access control string enclosed in quotes 
(") and the entire node specification is identified by two colons 
(::). An access control string consists of a username, password, and 
optional account name separated from each other by one or more spaces 
and/or tabs. Its total length is 3 through 42. characters. You 
include an access control string in a node specification when you want 
to login at the remote node as a specific user for the file access 
operation. If you omit the access control string, the default DECnet 


account (if established) is used. The following are examples of node 
specifications. 


BOSTON: : 
BOSTON"COWENS CELTICS":: 
BOSTON"COWENS CELTICS NBA":: 


In addition, you may define a logical name for a node _ specification 
and then use it in file specifications. Logical names are described 
in detail in Section 3.3. 
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For complete details on the use of node name specifications, see the 
DECnet-VAX User's Guide. , 


3.1.2 Devices 


Each physical hardware device in the system has a unique 
identification, in the format: 


devcus: 


In this format, dev is a mnemonic for the device type, c iS a 
controller designation and u is a unit number. 


Table 3-1 lists the valid device types and their mnemonics. 


The controller and unit number identify the location of the actual 
device within the hardware configuration of the system. Controllers 
are designated with alphabetic letters A through Z. Unit numbers are 
decimal numbers from 0 through 65535. 


The maximum length of the device name field, including controller. and 
unit number, is 15 characters. You must follow a device name with a 
colon (:). 


A complete device name specification is called a physical device name. 
You can specify physical device names to indicate an input or output 
device for a program. Or, you can equate a physical device name to a 
logical name and use a logical name to refer to a device. Logical 
names are described in detail in Section 3.3. 


Table 3-1 
Device Names 






















Mnemonic 


Device Type 
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Card Reader 

Console Storage Device 
RP04, RPO5, RPO6 Disk 
TU58, Cassette Tape 

RLO2, Cartridge Disk 
RKON6, RKO7 Cartridge Disk 
RMO3, RMO5 Disk 

RX02 Floppy Diskette 
LPA11-K Laboratory Peripheral Aeceieeaesr 
Line Printer 

Mailbox 

TS-1l Magnetic Tape 

TE16, TU45, TU77 Magnetic Tape 

Network Communications Logical Device 
Operator's Console 

Remote Terminal 

Interactive Terminal 

DR1L1-W General Purpose DMA Interface 

DR32 Interface Adapter 

DUP11 Synchronous Communications Line 
DMCl1 Synchronous Communications Line 





SPECIFYING THE FILE TO BE PROCESSED 


3.1.3 Directories 


A user file directory (UFD) is a file that lists the identifications 
and locations of files on a disk device that belong to a particular 
user. The UFD is listed in the volume's master file directory (MFD). 
The MFD is the root of the volume's directory structure, and also 
lists the reserved files for the volume. 


Directory names apply to files on magnetic tape and disk devices. 
They are expressed in one of three formats where each format requires 
that you enclose the directory name in either square brackets ([ and 
]) or angle brackets (< and >). The closing bracket must match the 
opening bracket. The formats for specifying directory names are as 
follows: 


e As a l- through 9-alphanumeric character string representing a 
UFD name. 


e AS a two-part number separated by a comma (,) in the format of 
a user identification code (UIC). 


e As a UFD name followed by one or more subdirectory names, each 
preceded by a period (.). Each subdirectory name represents a 
unique Subdirectory level of the UFD and has the same syntax 
aS a UFD name. 


3.1.3.1 Alphanumeric Character String Format - The character string 
used to specify a UFD can be the same aS your uSer name or account 
name, or any valid character string that you request or the system 
manager aSsignS- you. For example, if you specify a directory as 
[(OlOPAY] the directory OLOPAY.DIR;1 is searched. (DIR is the file 
type for a directory, and 1 is the version number.) 


3.1.3.2 UIC Format - You can refer to a UFD in a format similar’ to 
that for a UIC: for example, [abc,xyz], where "abc" is a group number 
and "xyz" 1S a member number. To specify a UFD in this’ format, 
separate the group number from the member number with a comma. If you 
specify less than three characters for either "abc" or "xyz", they are 
left zero-filled. Therefore, if you specify a UFD in a UIC format as 
[26,1], the directory searched is 026001.DIR;1. 


UIC directories have corresponding names in alphanumeric format. The 
group and member numbers’) are each left zero-filled (if necessary). 
For example: 


[122001] 


The directory name for the UFD specified in this command is equivalent 
to the specification [122,1]. 


A directory in this format is usually owned by a user with a 
corresponding UIC. However, this may not always be the case, as UIC 
and directory ownership are independent. 


3.1.3.3 Subdirectories - When UFDs are referenced using the character 
string format, further hierarchical levels of directories can be 
expressed as subdirectories. A subdirectory level iS expressed by 
adding a period (.) to the character string for the UFD, followed by 


SPECIFYING THE FILE TO BE PROCESSED 


the specification for the subdirectory. For example, [O1lOPAY.DED] is 
the specification for the UFD named O1OPAY.DIR;1 and a subdirectory of 
DED.DIR;1. 


The maximum number of directory levels is eight: one UFD and_= seven 
subdirectories. (Combined with the master file directory, this is, in 
effect, a 9-level hierarchy.) In the directory specification 
[OLOPAY.DED.YTD], O1OPAY is the UFD, DED is the first level 
subdirectory, and YTD is the second level subdirectory. 


There is no maximum number of different hierarchies of directories you 
can create or access, 


The master file directory is created when the volume is initialized. 
Subdirectories and UFDS are created with the CREATE command using the 
DIRECTORY qualifier.1l 


3.1.4 File Names, File Types, and Version Numbers 


File names, file types, and version numbers uniquely identify files 
within directories. 


A file name is a 1- through 9-alphanumeric character string that 
identifies a file. When you create a file, you can assign it a file 
name that is meaningful to you. 


A file type is a 1- through 3-alphanumeric character string that 
extends a file name. Usually, a file type name is chosen to suggest 
the contents of the file. 

File types must be preceded with a period (.). 

The system uses a set of standard file types, by convention, to 


identify various classifications of files, and to provide default file 
types in many commands. Table 3-2 is a list of file types. 
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Table 3-2 
Default File Types 
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Output file for the ANALYZE command 
BAS Input source file for the VAX-11 BASIC compiler 


Input source file for the PDP-1ll 
BASIC-PLUS-2/VAX compiler 


B2S 


B32 or BLI Input source file for the VAX-1l BLISS-32 


compiler 


CBL Input file containing source statements for’ the 
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(continued on next page) 


1. See the VAX/VMS Command Language User's Guide for an explanation of 
this command and any others that appear throughout this manual. 
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Table 3-2 (Cont.) 
Default File Types 





File Type Contents 
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Compatibility mode indirect command file 


Input file containing source statements for’ the 
VAX-11 COBOL-74 compiler 


Input source file for the PDP-11 CORAL 66/VAX 
compiler 


Command procedure file to be executed with the @ 
(execute procedure) command, or to be submitted 
for batch execution with the SUBMIT command 
Input or Output data file 


Output listing created by the DIFFERENCES 
command 


Directory File 

Distribution list for the MAIL command 

Output form the DUMP command 

Initialization command input file for EDT 
Executable program image created by the linker 


Input file containing source statements for’ the 
VAX-11 FORTRAN compiler 


Compatibility Mode FORTRAN IV PLUS source file 
Help text library file 

Help text source file 

Journal file output form PATCH utility 

Journal file/audit trail from EDT 

Precompiled Librrary for VAX-1ll Bliss-32 

Input file containing VAX-11 COBOL-74 _ source 
Statements to be copied into another file during 
compilation 

Listing file created by a language compiler or 
assembler; default input file type for PRINT 
and TYPE commands 


Batch job output file 


Compatibility mode listing file 





MACRO-11 source file 


(continued on next page) 
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Table 3-2 (Cont.) 
Default File Types 


File Type Contents 


Mail message file 


Memory allocation map created by the linker, 
invoked by the LINK command 


VAX-11 MACRO source file 


Maynard Definition Language (Language- 
independent structure definitions) 


Macro library 
Any new source file 


Object file created by a language compiler or 
assembler : 


Overlay descriptor file 

Object module library 

Any old source file 

Options for input to the LINK command 
A SYSGEN parameter file 


Input file containing Source statements for’ the 
VAX-11 PASCAL compiler 


VAX-11 BLISS-32 source file required for 
compilation 


Symbol table file ereated by the linker 
System image 

TECO indirect command input file 

Text library 

Temporary file 

SOS temporary file ("x" is a digit) 


Input file for text libraries or output file for 
mail command : 


Update file of changes for a VAX-1ll source 








Version numbers are decimal numbers) from 1 through 32767 that 
differentiate between versions of a file. When you update or modify a 
file, the system saves the original version for backup and increments 
the version number of the modified file by l. 


Version numbers must be preceded with a semicolon (;) or a period (.) 
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3.1.5 Wild Card Characters 


AS noted in the VAX/VMS Record Management Services Reference Manual, 
wild card characters can be used in the directory name, file name, 
file type, and file version number fields of a file specification, 
when given to a program designed to accept them. One purpose of wild 
card characters is to refer to a group of files by a more general file 
specification, rather than by each of the specific file 
specifications. There are four characters (or strings of characters) 
that can be used as wild card characters. These are the asterisk (*), 
the percent Sign (%), the ellipsis (...), and the minus Sign (-). 





An asterisk is used to match the missing component of a file 
specification with an alphanumeric character string of any length 
(including the null string). A percent sign is used to match any 
Single alphanumeric character in that particular position (the null 
string does not match). The asterisk and the percent sign can be 
combined in many ways. For example, the sequence: 


A* E%B* .B*;* 


matches a group of file specifications in which the file name starts 
with an "A" followed by a string of zero to "n" characters, followed 
by an "E", followed by a single character, followed by a "B", followed 
by a string of zero to "n" characters. The file type begins with a 
"B" and is followed by a string of zero to two characters. Finally, 
the version number in this group will be any and all versions of that 
file, beginning with the highest version number. 


The ellipsis and minus sign wild card characters are aids. to 
searching, or traversing, directory hierarchies. Both the ellipsis 
and the minus sign allow you to refer to directories in ae relative 
positional sense, rather than by an absolute name for the first 
directory or group of directories. The ellipsis enables you to select 
files from all directory levels from a specified level downward. The 
minus Sign, on the other hand, enables you to search up the hierarchy, 
rather than down. A single minus sign will send the search back up 
one level from the current default directory level. 


3.2 DEFAULT FILE SPECIFICATIONS 


Defaults are valuable because they are easy to use, and they let you 
enter as short a file specification as possible. The less you enter, 
the less chance you have of making a syntax error, or an incorrect or 
invalid specification. The default values were selected because ney 
conform to the most applicable and frequentlv used practices. 


When you enter a file specification and omit fields in it, the system 
Supplies values for these fields. 


The node name defaults to your local node. The device and directory 
names, if omitted, default to your current default disk and directory 
name. These are initially established when you log in to the’ system, 
based on an entry under your user name in the system authorization 
file. 


You can find your default disk and directory name by using the SHOW 
DEFAULT command. For example: 


S SHOW DEFAULT 


DBA1: [PAY0O1] 
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The response to the command indicates that the current’ default disk is 
DBA1, and the directory name is PAYO1. 


You can change the disk and directory name defaults with the SET 
DEFAULT command. 


System defaults also apply for fields other than the device and 
directory name. Table 3-3 summarizes the defaults that apply to each 
field in the file specification. 


Table 3-3 
File Specification Defaults 


node Local system 


device , Default device established at login, or by the 
SET DEFAULT command; almost always a disk 
device 


If a controller designation is omitted, it 
defaults to A. If a unit number is omitted, it 
defaults to 0. (The ALLOCATE and SHOW DEVICES 
commands, however, treat a device name that does 
not contain controller and/or unit numbers as a 
generic device name.) 


directory Directory name eStablished at login or by the 
SET DEFAULT command, or next higher level in a 
subdirectory 


file name No defaults are applied to file names in input 
file specifications, except for those commands 
accepting multiple input file specifications, 
where, for specifications other than the first, 
the file name (as well as node, device, 
directory, and file type) is often defaulted 
from the previous input file specification. 
Most commands default output file names based on 
the file name of an input file 


file type Various commands apply defaults for file types, 
based on the standard file type conventions 
summarized in Table 3-2 


file version For input files, the system assumes the most 
recent version (that is, the highest number) 


For output files, the system increases’ the 
version number by 1 for existing files, and 
supplies a version number of 1 for new files 





File specification defaults can be applied in other ways as well. 
Chapter 8 of the VAX-11 Record Management Services Reference Manual 
describes an advanced method for applying defaults to file 
specifications. This method involves the use of defaults built into 
your program, the default file specification string address and size 
fields of the FAB, and the related file NAM block. 
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3.3 LOGICAL NAMES 


The use of logical names is an effective technique for achieving 
device independence within a program. The logical names provide a 
convenient shorthand method for specifying files that you refer to 
frequently. 


The ASSIGN command equates a file specification to a logical name. 
For example, assume that, external to your program code, you specify 
the following: 


S ASSIGN DBAO: [PAYROLL] MASTER.DAT OLD MASTER: 
S ASSIGN DBA1: [PAYROLL] MASTER.DAT NEW MASTER: 


The ASSIGN command equates the logical name OLD MASTER to file 
MASTER.DAT on disk device DBAO in the directory PAYROLL. The logical 
name NEW MASTER equates to file MASTER.DAT on disk device DBAl in the 
directory PAYROLL on that device. (This file specification is known 
as the equivalence string for the logical name.) Subsequently, within 
your program, you can specify these files as follows: 


INFILE: $FAB FNM=<OLD_ MASTER: > 
OUTFILE: $FAB FNM=<NEW MASTER: > 


Alternatively, you can make the following external assignments: 


$ ASSIGN INDEVICE: [PAYROLL] OLD MASTER: 
S ASSIGN OUTDEVICE: [PAYROLL] NEW MASTER: 
S$ ASSIGN DBAO: INDEVICE: . 

S$ ASSIGN DBAl: OUTDEVICE: 


Note in the example above that logical name equivalence strings are 
not always full file specifications. Furthermore, note that the use 
of logical names is recursive; that is, the equivalence string for a 
given logical name may contain a further logical name. This 
asSignment would require a slight modification to the program to 
specify the same files. You would have to indicate the file name and 
file type in the FAB file specification. For example: 


INFILE: SFAB FNM=<OLD MASTER: MASTER.DAT> 
OUTFILE: $SFAB FNM=<NEW MASTER: MASTER.DAT> 


Depending on the degree of flexibility you need, numerous. other 
alternatives are possible in assigning logical names. The best 
alternative is determined according to individual circumstance. 


Logical names and their equivalence name strings can each have a 
maximum of 63 characters, and can be used to form all or part of a 
file specification. If only part of a file specification is a logical 
name, specify the logical name in place of the device name in 
subsequent file specifications. 


For example, a logical name can be assigned to a device name, as 
follows: 


S ASSIGN DMAl: BACKUP 


After this ASSIGN command, you can use the logical name BACKUP in 
place of the device name field when referring to files on the disk. 
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You may also create a logical name for a node name or _ node 
specification. This is useful for reducing the length of a long node 
specification and for protecting the password field of an access 
control string. For example: 


S$ DEFINE DAVE "BOSTON""COWENS CELTICS""::" 
S$ TYPE DAVE: :DBB2: [REPORT] JAN80.DOC 


The logical node name DAVE, defined above, has an equivalence’ string 
of BOSTON"COWENS CELTICS":: which is substituted for the node name 
DAVE in the TYPE command. 


RMS does not allow the use of lowercase logical names in. file 
specifications. If you try to use a lowercase logical name, RMS will 
convert to uppercase the entire string prior to attempting translation 
and will continue to do so on each successful translation thereafter. 
RMS will accept and ignore the use of blanks, tabs, and null 
characters in file specifications and logical name assignments. Such 
characters will be ignored by RMS, unless they are enclosed in quotes. 


3.3.1 Logical Name Tables 


Logical names and their equivalence names are maintained in three 
logical name tables: 


e Process logical name table -- contains entries that are local 
to a particular process. When you equate a file specification 
to a logical name with the ASSIGN or DEFINE command, the 
logical name, by default, is placed in this table. 


e Group logical name table -- contains entries’ that are 
qualified by a group number. These entries can he accessed 
only by processes that execute within the same group number in 
their UIC. To make an entry in the group logical name table, 
you use the /GROUP qualifier with the ASSIGN or DEFINE 
command. 


e System logical name table -- contains entries that can be 
accessed by any process in the system. To make any entry in 
this table, use the /SYSTEM qualifier with the ASSIGN or 
DEFINE command. 


You must have user privileges to place entries in the group or’ system 
logical name tables. 


3.3.2 Logical Name Translation and Recursion 


When the system reads a file specification, it examines the file 
specification to see if the left-most component is a logical name. If 
it is, the system substitutes the equivalence name in the _ file 
specification. This is called logical name translation. 


When the system translates logical names, it searches the process, 
group, and system tables, in that order, and uses the first match that 
it finds. 
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When RMS translates logical names in file specifications, the logical 
name translation is recursive. This means that after RMS translates a 
logical name in a file specification, it repeats the process of 
translating the file specification. For VAX-11 RMS, the parse routine 
will perform up to 10 logical name translations in an effort to 
identify the actual file name. For example, consider logical name 
table entries made with ASSIGN commands as follows: 


S ASSIGN DBA1: DISK 
S$ ASSIGN DISK:WEATHER.SUM REPORT 


The first ASSIGN command equates the logical name DISK to device DBA1. 
The second ASSIGN command equates the logical name REPORT to the file 
specification DISK:WEATHER.SUM. In subsequent requests for this file, 
you can refer to the logical name REPORT. In translating the logical 
name REPORT, the system finds the equivalence name DISK:WEATHER.SUM. 
It then checks to see if the portion on the left of the colon in this 
file specification is a logical name; if it is (as DISK is in this 
example) it translates that logical name also. When the logical name 
translation is complete, the translated file specification is: 


DBA] :WEATHER.SUM 


Note that when you assign one logical name to another logical name, 
you must terminate the equivalence name with a colon (:) if you are 
going to use the logical name in a file specification in place of a 
device name. For example: 


S ASSIGN DBA]: TEST 
S ASSIGN TEST: GO 


Logical node name translation is also recursive to 10 levels. The 
equivalence string produced from a logical node name must be another 
node specification. That is, it cannot supply other missing elements 
of a file specification. , 


3.3.3 Defaults for File Names 


When the system completes the translation of a logical name, it must 
use defaults to fill in the still-unspecified fields in the file 
specification. 


Many system commands create output files automatically and provide 
default file types for the output files. When you use a logical name 
to specify the input file for a command, the command uses the _ logical 
name to assign a file specification to the output file as well. Thus, 
if the equivalence name contains a file name and file type, the output 
file is given the same file name and file type as the input file. 


For example, the LINK command creates, by default, an executable image 
file that has the same file name as the input file and a default file 
type of EXE. However, if you make a logical name assignment’ and 
invoke the LINK command as shown below, the results are not as you 
would expect: 


S ASSIGN RANDOM.OBJ TESTIT 
$ LINK TESTIT 


The linker translates the logical name TESTIT and links the _ file 
RANDOM.OBJ. When it creates the output file, it also uses the same 
logical name for the output file. Because the equivalence name 
includes a file type, the LINK command does not use the default file 
type of EXE. The executable image iS named RANDOM.OBJ and has a 
version number one higher than the version number of the input file. 


Joe 
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3.3.4 


Bypassing Logical Name Translations 


The system always checks a file specification to see if it contains 


logical name. 
preceding the 


character (_). 
both the node 


the following: 


When you enter a device name or file specification, you’ 
can request that no translation is to take 
device 


place. You do this 


name 


and device 
if you do 


name 
not 


may be 
want the 


prefixed with 
system to 


$ ALLOCATE _DMA2: 


Ses ee 


When you log in to the system, the system creates logical 
for your process. 
are listed in Table 3-4. 


entries 
of SYS, 


Logical Name 


SYSSINPUT 














SYSSOUTPUT 


SYSSERROR 


SYSSCOMMAND 


SYSSDISK 


SYSSSYSDISK 
SYSSLOGIN 


SYSSNET 


SYSSNODE 


“Default 


Default Process Logical Names 


name 


Table 3-4 
Default Process Logical Names 


Equivalence Name 





epee n 


Default input stream for the process. For an 
interactive user, SYSSINPUT is equated to the 
terminal. Ina batch job, SYSSINPUT iS equated 
to the batch input stream 


Default output stream for the process. For an 
interactive user, SYSSOUTPUT is equated to the 
terminal. In a batch job, SYSSOUTPUT is equated 
to the batch job log file 


device to which the system writes 
messages For an interactive user, SYSSERROR is 
equated to the terminal. In a batch job, 


SYSSERROR is equated to the batch job log file 


Original SYSSINPUT device 
user or batch job 


for an interactive 


Default disk device most recently established by 
the SET DEFAULT command 


System disk used to boot VMS 
Default disk and directory established at login 


Is defined only for the target process in DECnet 
task-to-task communication. The equivalence 
string for SYSSNET identifies the source process 
that invoked the target process. SYSSNET, when 
opened, represents the logical link over which 
the target process can exchange data with its 
partner. (For additional information, See _ the 
DECnet-VAX User's Guide) 


Identifies the local node name on_ which 
system is running, if DECnet is installed 


your 


or file specification with an underscore 
(If the file specification contains a node name, 

name 
underscore.) For example, 
whether DMA2 is a logical name on an ALLOCATE command, you would enter 


then 


check 


table 
The logical names, which all have a prefix 
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3.4 PROCESS-PERMANENT FILES 


Process-permanent files are an important feature of the VAX/VMS 
operating system. They exist over the life of a process; hence the 
term process permanent. In contrast, most files accessed from an 
image are closed when the image exits, and any control blocks that 
describe them are deallocated. 


You can use VAX-11 RMS to open or create a procesS-permanent file of 
your own definition only in supervisor or executive mode. You set the 
PPF bit in the file processing options field (FOP) of the FAB. This 
allocates internal data structures, maintained by VAX-11 RMS. These 
structures reside in the process control region until the end of the 
process. 


You cannot directly access a process-~permanent file in user _ mode. 
However, you can gain indirect access to a subset of all the available 
functions of process-permanent files by use of the logical name 
mechanism. When you log in to the system, a process-permanent file 
corresponding to the process's input, output, and error message 
streams is opened. (This means that the most commonly accessed files 
need not be reopened by each image that executes in the context of a 
process.) These process-permanent files have a logical name created 
for them in the process logical name table (see Table 3-4). The 
specific format of the names in the process’ logical name table 
indicates a correspondence between the logical name and the related 
process-permanent file. VAX-11 RMS recognizes these names and thus 
provides easy access to the process-permanent files. 


CHAPTER 4 


PROCESSING FILES WITH SEQUENTIAL RECORD ACCESS MODE 


The sequential record access mode is the way to retrieve or _ store 
records by starting at a designated point in the file and continuing 
to the end of the desired area. Records are accessed in the order in 
which they logically appear in the file. 


Section 4.1 deals with sequential access to the sequential file 
organization. Section 4.2 deals with sequential access to _ the 
relative file organization. Section 4.3 deals with sequential access 
to the indexed file organization. 


4.1 THE USE OF SEQUENTIAL FILE ORGANIZATION 


This section explores various ways to use sequential file organization 
with sequential record access mode. Some basic programming examples 
will be used to illustrate this simple, flexible, and easy-to-use file 
organization. Once you understand sequential file organization, you 
can uSe it where it best suits your needs, and build on the techniques 
described in this chapter to use this file organization to its fullest 
capabilities. 


4.1.1 Reading Records 


This section describes a sample program that illustrates how records 
are read from a sequentially organized file. Each record is a 
fixed-length, 50-byte record, as follows: | 


Byte Contents 
0-4 Part number 
5 Discount type code 

6-25 Part description 

26-29 Quantity on hand 

30-33 Reorder quantity 

34-42 Last reorder date (dd mon yy) 
43-49 List price 


The purpose of this program is to count the records that have the 
character A as the fifth byte of the record (discount type code). 
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Assume that, external to the program, the following assignment will be 
made: 


S ASSIGN 18SEP78 ..INV INFILE: 


First, you need a FAB to describe the file. You thus issue a eSFAB 
macro call, using parameters to set values in the FAB fields. In some 
cases, the fields you use for a file can have the value applied by 
default, so you need not specify these fields. 


For example, the file access field indicates the type of operation you 
want to perform on the file. In this example, you want to open the 
file for read access (with a SGET macro instruction). Normally, you 
do so by setting FAC=GET on the SFAB macro instruction. However, 
FAC=GET is the default when you are opening a file, So you need not 
specify it. If you were going to perform some other type of operation 
when you opened the file, such as delete, you must specify that 
operation explicitly. In addition, defaults can change depending on 
the operation (see Section 4.1.2; the default is write access’ when 
you create a file). 


In this example, the file has no special characteristics, such as file 
processing options. In any case, most FAB fields used for an open 
operation are only returned as output. Therefore, the only field you 
need specify as input is the file specification. In the external 
assignment, the logical name INFILE: is equated to I18SEP78.INV. 
Therefore, with the FNM parameter, you can indicate the file as 
Eollows: 


INFAB: SFAB FNM=<INFILE:> 


Note that the label field contains INFAB. This lets you refer to this 
FAB in the $RAB macro instruction, to connect the record stream, and 
define the address of the FAB for the run-time macro instructions in 
your program. 


Next, you need a RAB to describe the records and how you intend to 

access the file. You muSt associate the RAB with the FAB (uSing the 
FAB parameter) and set up a buffer area (UBF and USZ parameters). 
Access to this file will be sequential, which is the default record 
access mode, and therefore need not be specified. The SRAB- macro 
instruction would be as follows: 


INRAB: $RAB_ FAB=INFAB,- 
| UBF=REC_BUFFER,- 
USZ=REC_ BUFFER SIZE 


The label field contains the value INRAB, giving you a means. of 
referring to this RAB in your run-time macro instructions. Note also 
the use of the continuation hyphen (-) to continue the instruction = on 
the next line. 


To process this file, you need certain VAX-1l RMS run-time processing 

macro instructions to perform the operations. First, because this is 

an existing file, you must open it for access with a SOPEN- macro 

instruction and specify the FAB that describes the file, as follows: 
SOPEN FAB=INFAB 


Next, you must establish the record stream for this file with a 
SCONNECT macro instruction indicating the. RAB, as follows: 


SCONNECT RAB=INRAB 
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Once you open the file and connect the record stream, you must 
indicate what operations you are going to perform. In this 
application, you want to retrieve records from a file. The SGET macro 
instruction performs this function. This macro instruction uses the 
RAB. 


SGET RAB=INRAB 


After you have read all the records, and processing is finished, you 
must close the file with the SCLOSE macro instruction indicating the 
FAB for the file, as follows: 


SCLOSE FAB=INFAB 


The SCLOSE macro instruction also disconnects the record stream _ for 
all RABs. If you want to disconnect the record stream for a 
particular RAB connected to a FAB (more than one RAB can be connected 
to a single FAB), you can use the S$DISCONNECT macro instruction, 
specifying the RAB to disconnect. 


Figure 4-1 lists the program code to count the discount type code A 
records. The VAX-11 RMS macro instructions are Shown in red. Note 
that this program, in effect, produces no worthwhile result because 
the program does not communicate the record count to you. 


1 eTITLE COUNT = COUMTS TYPE A DISCAMUNT RECORDS 

eo} . 

3 9 PROGRAM TO READ INVENTORY FILE COUNTING 

4 3 TYPE %A® DISCOUNT RECORDS 

5 3 

6 ePSECT DATA,LONG 

7 INFABs: $F AB FNM2eINFILE:> 

B INRARe $RAB FARRINFAB,« 

9 UBFSREC, RUFFER,= 

14 US7SREC PUPFE® SIZE 

11 REC,BUFFERs ,BLKS 5A , USER RECORD BUFFER 

12 REC BUFFER, SIZEs,= FC RUFFER 

13 COUNTs ,WORD @ ¢ COUNT OF TYPE °A*% RECORDS 
i4 3 

15 3 OPEN FILE, CONNECT STREA™ 

ié 3 

17 ePSECT CODE 

18 BEGIN: ,.wORD 2 

19 SOPEN FARSI NFAR s OPEN INPUT FILE 
2@ BLBC R“,EXIT e RRANCH ON ERROR 

el SCONNECT RABSINPAR e CONNECT STREAM 
22 BLBC RA,EXIT H PRANCHK ON ERROR 
e3 3 
eu 3 READ RECORDS, COUNTING TYPE %A*% RECORDS 
25 3 

26 READ? SGET RABSINRAR ¢ READ A RECORD 

e7 BLAC RA,ONNE y PRANCH ON FRROR 

28 ; + (ERROR MAY BE EOF) 
29 CMPB REC, BUPFER+5,a"A/A/ > JS DISCOUNT TYPE = °A*%? 
3A BNEW READ ; RRANCH JF NOT ' 
31 INCH COUNT 3 COUNT TYPE “’A® RECORD 
32 BRB REAL ? GO GET THE NEXT RECARO 
33 
34 3 
35 } ALL DONE, CLOSE FILE AND EXIT, 

36 3 

37 NONE? S$CLOSE FARSINFARB + CLOSE THE FILE 

38 EXITs BEXIT,S RA” y EXIT WITH STATUS 
39 
4@ eEND BEGIN 


Figure 4-1 Program to Count Records in a Sequential File 


PROCESSING FILES WITH SEQUENTIAL RECORD ACCESS MODE 


4.1.2 Creating a Sequential File 


This section describes a sample program that illustrates how you _ can 
use the sequential file organization to create a new file by copying 
an existing file. The format and contents of the records in the file 
are the same as those described for the example in Section 4.1.1. 


Assume that, external to the program, the following assignments will 
be made: 


S ASSIGN 18SEP78.INV INFILE: 
S$ ASSIGN 18SEP78.CPY OUTFILE: 


Because this program uses two files, one for input and one for output, 
two separate FABS are required to describe the files. For the input 
file, you need only define the file specification. In the external 
assignment, it was equated to INFILE:. Therefore, with the FNM 
parameter, you indicate the file as follows: 


INFAB: SFAB FNM=<INFILE:> 


For the output file, you must also define the file specification. In 
the external assignment, it was equated to OUTFILE:. Because you are 
creating this file, you use the SPUT macro instruction to write 
records to the new file. The default is write access when creating a 
file; therefore, you need not specify FAC=PUT. When you create a 
file, you must indicate the record format. In this file, the records 
are fixed length, so the specification is RFM=FIX. You also must 
specify the maximum record size, For fixed-length records, the 
maximum record size indicates the actual length of each record in the 
file. The records for this file are each 50 bytes long. You can 
specify this record size either by indicating MRS=50, or by defining a 
record size within your program and referring to this definition, for 
example, REC SIZE=50 and MRS=REC SIZE. Defining the record size in 
your program also lets you make other references to this record size 
within your program, for example, in defining the size of the buffer 
areas for the RAB. 


As an option, you can indicate that each record is to be preceded by a 
line feed and followed by a carriage return whenever the record is 
output to a line printer or terminal. Set the record attributes field 
with RAT=CR. The FAB for the output file is then defined as follows: 


OUTFAB: SFAB FNM=<OUTFILE:>,- 
RFM=FIX,- 
MRS=REC SIZE,- 


RAT=CR 


You must also define RABs’ for both files. The FAB parameter 
associates a RAB with the appropriate FAB. Because the sequential 
record access mode is the default, you can omit the RAC. parameter. 

Both files also need a buffer area. In fact, they both can use the 
same buffer area, since you will read a record into a buffer, and then 
write it from the buffer before you read another record into the 
buffer. The output RAB, however, uses the RBF and RSZ parameters’ to 
define the buffer, rather than the UBF and USZ parameters. The reason 
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is that the S$PUT macro instruction does not use UBF and USZ as-~ input; 
it uses RBF and RSZ. The SRAB macro instructions would be as follows, 
with the input RAB Shown first. 


INRAB: $RAB  FAB=INFAB,- 
UBF=REC_BUFFER,- 
USZ=REC_ SIZE 


OUTRAB: SRAB FAB=OUTFAB,- 
RBF=REC_BUFFER,- 
RSZ=REC_ SIZE 


The run-time processing macro calls for the input file consist of a 
SOPEN, a SCONNECT, a SGET, and a SCLOSE. For the output file, you 
must specify a SCREATE macro instruction (rather than an SOPEN), which 
opens and constructs a new file. In this macro instruction, you 
indicate the FAB that contains the attributes for the new file, as 
follows: 


SCREATE FAB=OUTFAB 


As with the input file, you must also specify the SCONNECT macro 
instruction to connect the record stream and the SCLOSE macro 
instruction to close the file. However, before the file is closed, it 
must be processed. In the case of a copy operation, records must be 
written to the new file. Use the SPUT macro instruction, specifying 
the RAB, as follows: 


SPUT RAB=OUTRAB 


Figure 4-2 lists the program code to copy ae file. The VAX-11 RMS 
macro instructions appear in red. 


4.1.2.1 Dynamically Creating a Sequential File - The example in this 
section produces results identical to the results of the program 
listed in Figure 4-2. The difference between the two, however, is 
that the allocation and initialization of the control blocks for the 
output file (FAB and RAB) is dynamic, performed at run time rather 
than at assembly time. The "store" macro instructions let you 
dynamically set fields. 


The values you supply with the "store" macro instructions expand into 
code that affects the contents of data fields during the execution of 
your program. 


Figure 4-3 lists the program code for this example. Note that only 
minor changes have been made _ to the program listed in Figure 4-2. 
Lines 11 through 19 in Figure 4-2 have been replaced in Figure 4-3 
with lines 12, 13, and 14 to begin the definition of the output FAB 
and RAB and to provide a .ASCIC directive to specify the character 
string for the file specification. 


OUTFAB: SFAB 
OUTRAB: SRAB FAB=OUTFAB 
OUT FILESPEC: .ASCIC /OUTFILE:/ 
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: eTITLE COPYFILE = MAKE COPY OF INPUT FILE 

? 

3 3 PROGRAM TQ MAKE A COPY OF THE INPUT FILE 

ay 

5S REC,SIZEsS2 y RECORD SIZE 

6 ePSECT DATA,LONG 

7 INFAR: S$FA8 FNM2<INFILE?> 

B INRABs: §$RAB FAB2INFAB,®@ 

9 UBFSREC _ BUFFER,@ 

12 USZ2REC SIZE 

11 OUTFABs $#FAB FNMSCOUTFILE?>,= 9 OUTPUT FILE HAS FIXED 
12 RFMSFIX,= > LENGTH RECORDS, 5A BYTES 
13 MRSEREC,SIZE,= s IN LENGTH, WITH IMPLIED 
14 RAT2CR : NEw LINE CARRIAGE CONTROL 
15 OUTRAB: S$RAB FABZSOUTFAB,@ 

{6 RBFRREC BUFFER,= 

17 RSZ#REC,SIZE 

18 sy NOTE: OUTPUT RAB USES 
19 ¢ SAME RECORD BUFFER AS INPUT RAB 
22 REC BUFFER? ~oLKB REC, SIZE 
21 ePSECT CCDE,NOWRT 
ee 3 

23 3 INITIALIZATION # OPEN INPUT AND OUTPUT FILES AND CONNECT STREAMS 
24 4 
25 START:  .wORD 2 

26 $PEN FARSINFAB : OPEN INPUT FILE 

27 RLBC R@,EXITY : BRANCH ON ERROR 

28 SCREATE FABSOUTFAR y OPEN OUTPUT FILE 

29 BLBC RAPEXITS ¢ BRANCH ON ERROR 

3u SCONNECT RABaINRAB 3 CONNECT INPUT RAB 

31 BLAC RA,EXITI ¢ BRANCH ON ERROR 

32 BCONNECT RABZsOUTRAB s CONNECT OUTPUT RAB 

33 BLAC RO,EXIT} 9 BRANCH ON ERROR 

3a 3 

35 : COPY RECORDS 

36 3 

37 READ? $GET RABZINRAB y READ A RECORD 

38 RBLBC R2,DONE s BRANCH ON ERROR 

49 SPUT RABSOUTRAB ys WRITE THE RECORD TO 

UA py THE OUTPUT FILE 

4} BLAS RA,READ s BRANCH ON SUCCESS 

42 EXITi: BRB EXIT 3 GET OUT ON ERROR 

43 3 

44 3 ALL SET = CLOSE FILES AND EXIT 

4S 3 

46 DONES SCLOSE FABSINFAB 5 CLOSE INPUT FILE 

47 SCLOSE FASSOUTFAB 5 CLOSE OUTPUT FILE 

48 

49 EXIT: SEXIT LS RQ y EXIT WITH STATUS 

5¢ eEND START 


Figure 4-2 Program to Copy a Sequential File 


A SFAB STORE macro instruction has been inserted in lines 23 through 
28 of Figure 4-3 to initialize the output FAB and set the needed 
values. (Note that the FNM parameter has been replaced by two 
parameters: FNA and FNS. This is because you cannot use the FNM 
parameter to provide the file specification dynamically; you must use 
the FNA and FNS parameters.) 


SFAB STORE FAB=OUTFAB,- 
> FNA=OUT FILESPEC#+1,- 
FNS=OUT FILESPEC,- 
RFM=FIX,- 
MRS=#REC SIZE,- 
RAT=CR 
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The SCREATE macro instruction (line 28 in Figure 4-2) has’ been 
replaced in Figure 4-3 with a new SCREATE macro instruction (now on 
line 30). This opens and constructs the output file, indicating the 
register containing the address of the FAB--RO. (Note that the 
FAB STORE macro instruction loaded the FAB address into register 0 by 
default.) 


SCREATE FAB=RO 


A SRAB_STORE macro has been inserted in lines 34, 35, and 36 of Figure 
4-3 to initialize the output RAB and set the needed values. 


SRAB_STORE RAB=OUTRAB,- 
RBF=REC_BUFFER,- 
RSZ=#REC_ SIZE 


The SCONNECT macro instruction (line 32 in Figure 4-2) has been 
replaced with a new SCONNECT macro instruction (now on line 38). This 
instruction establishes the record stream for the output file, 
indicating the register of the RAB--RO. 


SCONNECT RAB=RO 


4.2 THE USE OF RELATIVE FILE ORGANIZATION 


Relative file organization is available for use on disk devices’ only. 
This organization affords more capabilities than the sequential file 
organization, but, in most cases, requires additional planning and 
coding to implement (See Chapter 1). 


Relative file organization uses a fixed-length cell for each record in 
the file (or aS a space for a record to be inserted). However, while 
all the cells are fixed-length, the individual records need not _. be; 
they can be variable length, fixed length, or variable with 
fixed-length control. 


The relative file organization allows random retrieval of records by 
means of keys (a key in a relative file is the relative record number 
assigned to each record). The fixed-length cell allows for a direct 
calculation of the record's actual position. 


4.2.1 Reading a Relative File 


The program described in this section produces the same result as’~ the 
program listed in Figure 4-1. The program counts discount type code A 
records in the file. The record contents are the same, and So are the 
external assignments. The only difference is that the file is a 
relative file. 


You need not specify a file organization in the FAB for the file when 
you open it because the file organization already is assigned. [In 
addition, you do not need to specify Sequential file organization for 
a create; since it is the default. Therefore, the program code would 
be identical to the one for a sequential file (Figure 4-1). 
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; eTITLE COPYFILE! = MAKE COPY OF INPUT FILE 

’ 

3 3 PROGRAM TQ MAKE A COPY OF THE INPUT FILE 

uy 

S REC ,SIZE3S2 ¢ RECORD SIZE 

6 ePSECT DATA,LONG 

7 INFaBs: = $FAR FNM2<INFILEs> 

® INRARY $RAB FABZINFAB,= 

9 USFZREC ,BUFFER,= 

1a USZSREC, SIZE 

li fs 

12 NUTFaBs $F AB : OUTPUT FILE FA6 

13 NQUTRAB: BRAB FABSOUTFAR : OUTPUT FILE RAB 

14 OUT ,FILESPEC? eASCIC SOUTFILEs/ 

15 REC, ,RUFFER: 2AlKA REC SIZE ; RECORD BUFFER 

16 ePSECT CODE,NOWPT 

17 3 ’ 

1&8 3» INITIALIZATION = OPEN [NPUT AND OUTPUT FILES AND CONNECT STREAMS 

19 3 

O* START: ,wORD a 

Al SNPEN FABZINFAE s OPEN INPUT FILE 

22 ALBC RO,EXIT} + BRANCH ON ERROF 

23 FAR, STORE FARSOUTF AB, } INITIALIZE CUTPUT FAK 
2u FNASOUT ,FILESPEC+1,¢ s SET OUT FILE SPEC ADDRESS 
aS FXSSOUT ,FILESPEC,= s SET OUT FILE SPEC LENGTH 
2b PFMZFIX,®© y SET RECORD FORMAT 

27 MESa#REC ,SIZE,= s SET MAXIMUM RECORD SIZE 
28 RPATSCR 9 NEw LINE CARRTAGE CONTPOL 
29 

sy SCREATE FARSRA ¢ OPEN OUTPUT FILE 

31 ALAC RA,EXIT1 9 BRANCH ON ERROR 

32 $CONNECT FARZINPAB CONNECT INPUT RAB 

33 PLAC R@»-EXIT! 3 BRANCH ON ERROR 

34 fRAB, STORE FABEQUTRAR,© ys INITIALIZE OUTFUT FILE Rab 
35 RBFSREC BUFFER,«# ; SET USER BUFFER ANDRESS 
36 RSZ2#¥REC SIZE » SET USER BUFFER SIZE 

37 

38 S$CONNECT RABERG 9 CONNECT OUTPUT RAB 

39 BLAC R@,EXIT ¢ BRANCH ON ERROR 

HA 4 

4i 3: COPY RECORDS 

4e 3 

43 READS SGET RABZINRAB : READ A RECORD 

au BLBC RO,D0NE 3 BRANCH ON ERROR 

45 $PUT RARBBOUTRAB 9 WRITE THE RECORD TO 

46 3 THE OUTPUT FILE 

47 BLBS R@,READ y BRANCH ON SUCCESS 

4@ EXIT!: BRB EXIT ¢ GET OUT ON ERROR 

49 3 

SQ 3 ALL SET = CLOSE FILES AND EXIT 
513 

52 DONE? $SCLOSE FABSINFAB 9 CLOSE INPUT FILE 

53 SCLOSE FABROUTFAB 9 CLOSE OUTPUT FILE 

54 
S5 ExItTs SEXIT_S R@ » EXIT WITH STATUS 
56 eEND START 


Figure 4-3 Program to Copy a Sequential File, Setting the 
Output Control Blocks Dynamically 


4.2.2 Creating a Relative File 


When you create a file, you must specify the type of file organization 
you want, either by default for sequential or by an explicit 
specification for relative. | 
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You indicate that you want the relative file organization assigned to 
the file by specifying ORG=REL on the SFAB macro call that applies to 
the file. 


If you use the same example as in Section 4.1.2 (and Figure 4-2), but 
create a relative file rather than a sequential file, only the output 
file SFAB macro instruction changes, as indicated by an arrow in the 
portion of code shown in Figure 4-4. Everything else in the program 
remains the same. 


5 REC ,SIZE=50 t RECORD SIZE 
6 ePSECT DATA,LONG 
7 INFABs = S&FAB FANMS@eCINFILE ¢> 
8 INRABs $RAB FARSINFAB,= 
9 | URFSREC,RUFFER,= 
12 USZSREC SIZE 
11 3 
12 OUTFABs SFAR FNMS<OUTFILE?>,= : OUTPUT FILE HAS FIXED 
13 RFMZFIX,@ s LENGTH RECORDS, 50 BYTES 
14 MRSSREC SIZE,= s IN LENGTH, WITH IMPLIED 
15 RATSCR,= y NEw LINE CAPRIAGE CONTROL 
16 ORGSRE| ——>-——————— 
17 OUTRABs S$RAL FABSQUTFAB,= 
18 REFSEREC ,RUFFER,= 
19 RSZZREC SIZE 
20 * MOTEs OUTPUT RAB USES 
21 : SAME RECORNM BUFFER AS INPUT RAB 
22 REC BUFFERS? eRLKB REC, SIZE 
23 ePSECT CONE,NOWRT 


Figure 4-4 Creating a Relative File 


4.2.2.1 Dynamically Creating a Relative File - Section 401521 
described how to dynamically specify the parameters to create a file 
with the sequential file organization. Section 4.2.2 described how to 
create a file with the relative file organization specified at 
assembly time. By combining what was discussed about the output FAB 
in both of these sections, you can specify dynamically, at run time, 
the parameters to create a relative file. 


At assembly time, the SFAB macro instruction included the 
specification of ORG=REL (see Figure 4-4). By adding this same 
specification to the S$FAB STORE macro instruction (see Figure 4-3), 
you specify the parameters dynamically, at run time. 


Figure 4-5 lists a section of code, showing the inclusion of ORG=REL 
to the $FAB STORE .macro instruction. 


Appendix A contains an additional example of the use of sequential 
record access mode. 


4-9 
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6 ePSECT DATA,LONG 

7 INFABs S$FAB FNMS<INFILE :> 

8 INRAB: $RAB FABSINFAB,<= 

9 URFSREC BUFFER,= 

18 USZSREC SIZE 

11 3 

12 OUTFAB: $FAB : OUTPUT FILE FAB 

13 OUTRAB: $RAB FABSCUTFAB : QUTPUT FILE RAB 

14 OUT LFILESPEC: eASCIC /OUTFILES/ 

15 REC BUFFERS: »BLKB REC SIZE s RECORD RUFFER 

16 ePSECT CODE, NOWRT 

17 3 

18 3 INITIALIZATION # OPEN INPUT AND QUTPUT FILES AND CONNECT STREAMS 

19 3 

ef START: ,WORD *, 

21 SOPEN FABSRINFAR 1 OPEN INPUT FILE 

22 BLBC RY,EXITI : BRANCK ON ERROR 

23 $FAB,STORE FARSOUTFAB,@= : INITIALIZE OUTPUT FAB 
24 FNASOUT _FILESPEC4+1,« 3 SET OUT FILE SPEC ADDRESS 
25 FNSSOUT_FILESPEC,= » SET OUT FILE SPEC LENGTH 
26 RFMSFIX,© : SET RECORD FORMAT 
27 MRSS#RECL_SIZE,@ + SET MAXIMUM RECORD SIZE 
28 RATSCR,@ s SET IMPLIED CARRIAGE CONTROL 
29 ORGSREL s RELATIVE FILE ORGANIZATION 
30 
31 $CREATE FAB=RA ¢ QPEN OUTPUT FILE 

32 BL&C RO-EXIT! + BRANCH ON ERROR 
33 SCONNECT RABSINRAB : CONNECT INPUT RAB 

34 BLEC RA,EXITI : BRANCH ON ERROR 
35 SRAB STORE RPABSNUTRAB,@ ¢ INITIALIZE OUTPUT FILE RAB 
36 RBFSPEC,BUFFER,= : SET USER BUFFER ADORESS 
37 RSZ=eREC_SIZE : SET USER BUFFER SIZE 

38 
39 S$COKNECT RAR=Ry : COKNECT CUTPUT RAB 


Figure 4-5 Creating a Relative File Dynamically 


4.3 THE USE OF INDEXED FILE ORGANIZATION 


Indexed file organization is available for use on disk devices. only. 
This organization affords more capabilities than the sequential or 
relative file organization. 


The indexed file allows the use of truly variable-length records. 
Their lengths are limited only by the size of the bucket or by a 
maximum record size that you establish. Since variable-length records 
may change size on an update, there is no need to pad records to their 
maximum size. The record size may be increased or decreased later 
with an update operation. | 


Indexed files allow random access to either fixed- or variable-length 
data records by ae key value. A key in an indexed file can be a 
character string, a packed decimal number, a 2- or 4-byte signed 
integer, or a 2- or a 4-byte unsigned binary number within the record. 
This type of file organization stores the records by ascending key 
value. These records can then be retrieved sequentially in ascending 
order or randomly by supplying a specific key value to retrieve. 


When an indexed file is created, a key is defined by its location and 
length within each record. At least one key, called a primary key, 
must be defined for an indexed file. Optionally, additional keys 
referred to as alternate keys, may be defined. 
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AS your program puts records into an indexed file, VAX-11l1 RMS uses the 
values of the primary and alternate keys to build indexes. An index 
is the structure which allows the records to be retrieved randomly. 
Each data record is placed in the file in sorted order by primary key. 
In alternate indexes, the sort Sequence is established by pointers’ to 
the actual data record. These mechanisms enable the data records to 
be read sequentially in sorted order by any key. 


Because VAX-11 RMS completely controls the placement of records in an 
indexed file, location of the records in the file is transparent to 
your program. 


4.3.1 Reading an Indexed File 


The program described in this section produces the same result as' the 
program listed in Figure 4-1 and described in Section 4.1.1. The 
program counts discount type code A records in the file. The record 
contents are the same and so are the external assignments. The 
difference is that the file is an indexed file. In this example, the 
discount type field within the record has been defined as the first 
alternate key. This will allow random access to the first record 
containing discount type code A and sequential access to all 
Succeeding type A records. This eliminates the need to read all of 
the records in the file and, in fact, simplifies the program logic. 
Though some of the program code is identical to that for sequential 
files, some is unique to indexed files (see Figure 4-6). 


Assume that, external to the program, the following assignment will be 
made: : 


S ASSIGN 18SEP78.INV INFILE: 


First, you need a FAB to describe the file. You therefore issue a 
SFAB macro instruction, using arguments to set values in the FAB 
fields. 


For example, the file access field indicates the type of operations 
allowed when the file is opened. You want to open the file for read 
access only. Normally, you do so by setting FAC=GET on the SFAB macro 
instruction. However, FAC=GET is the default when you are opening a 
file, so you need not specify it. If you were going to perform some 
other type of operation when you opened the file, such as delete, you 
would have to specify that operation explicitly. 


The only field you need specify as input is the file specification. 
In the external assignment, the logical name INFILE: is equated to 
18SEP78.INV. Therefore, with the FNM parameter, you can indicate’ the 
file as follows: 


INFAB: SFAB FNM=<INFILE:> 


Note that the label field contains INFAB. This lets you refer to this 
FAB in the SRAB macro instruction, to connect the record stream, and 
define the address of the FAB for the run-time macro instructions in 
your program, 


Next, you need a RAB to describe the access to the records and to the 
file. You must associate the RAB with the FAB (uSing the FAB 
parameter) and set up a buffer area (UBF and USZ parameters). You 
must also specify the buffers for the key value, and the size of the 
key value (KBF and KSZ parameters). Specifying KRF=1 causes the first 
alternate index to be used when retrieving records from the file. 
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Then you specify the record processing options ROP=LIM to compare the 
key value described by the KBF and KSZ fields with the value in the 
record accessed on sequential get operations. When the key value in 
the record exceeds that value in the key buffer on a sequential get 
operation, a success code of RMSS OK LIM will be returned. Finally, 
the initial record access mode is to be by key (RAC=KEY). The SRAB 
macro instruction would be as follows. 


INRAB: S$RAB’ FAB=INFAB,- 
UBF=REC_BUFFER,- 
USZ=REC_ BUFFER _SIZE,- 
KRF=1,- 
KBF=KEY BUFF,- 
KSZ=KEY BUFF SIZE,- 
ROP=LIM,- 7 
RAC=KEY 


The label field contains the value INRAB, giving you a means of 
referring to this RAB in your run-time macro instructions. 


Then you must set up the user buffer and the key buffer as follows: 


REC BUFFER: .BLKB 50 
REC_BUFFER_SIZE=.-REC_BUFFER 
KEY BUFF: . BLKB 1 


KEY BUFF_SIZE=.~KEY BUFF 


To process this file, you need certain VAX-11 RMS run-time processing 
macro instructions. First, because this is an existing file, you must 
open it with a SOPEN macro instruction and specify the FAB that 
describes the file, as follows: 


SOPEN FAB=INFAB 


Next, you must establish the record stream for this file with a 
SCONNECT macro instruction indicating the RAB, as follows: 


SCONNECT RAB=INRAB 


Now you specify that the key you want is the first record containing 
discount type code A. To position to the first record with discount 
type code A, you issue a S$FIND macro instruction (with RAC=KEY set by 
the SRAB macro instruction); then you change the record access mode 
to sequential with the record access mode parameter option (RAC=SEQ on 
the SRAB STORE macro instruction). 


Now that you have established the logical starting point in the _ file 
(the first record with discount type A), you want to retrieve that 
record and all succeeding records with discount type A. The SGET 
macro instruction performs that function. This macro instruction uses 
the RAB. 


SGET RAB=INRAB 


When the success code RMSS OK LIM is’ returned from a SGET- macro 
instruction, you will have retrieved all records in the file with a 
discount type A. The current record and any succeeding records (if 
not at the end of file) will have a higher key value, such as B. 
After record processing is finished, you must close the file with a 
SCLOSE macro instruction, indicating the FAB for the file, as follows: 


SCLOSE FAB=INFAB 
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The SCLOSE macro instruction also disconnects the record stream _ for 
all RABs. If you want to disconnect the record stream for a 
particular RAB connected to a FAB (more than one RAB can be connected 
to a single FAB), you can use the SDISCONNECT macro instruction, 
specifying which RAB to disconnect. 


Figure 4-6 lists the program code to count the discount type code A 
records in an indexed file. The VAX-11 RMS macro instructions are 
Shown in red. Note that this program, in effect, produces no 
worthwhile result, because the program does not communicate the record 
count to you; the program serves only as an example. 


; eTITLE COUNT © COUNTS TYPE A DISCOUNT RECORDS 

’ 

3 ¢ PROGRAM TO READ INVENTORY FILE COUNTING 

4 3 TYPE *A* DISCOUNT RECORDS 

S 3 

6 ePSECT DATA,LONG 

7 INFABs S$FAB FNMadINFILEs> 

@ INRABg SRAB FABsSINFAB,& 

9 UBFSREC BUFFER,= 

1% USZZREC BUFFER, SIZE,= 

13 KRFa2{,= 9 KEY TO SEARCH ON 
le KBFaKEY BUFF,© » @BUFFER TO HOLD KEY VALUE 
13 KSZSKEY BUFF _SIZE,= ¢ SIZE OF KEY VALUE 
14 ROPsLIM,«# 

15 RACRKEY 

14 REC BUFFER? eALKB 5 

17 REC, RUFFER SIZE&,-REC BUFFER 

18 KEY RUFF? 2ePLKB 

19 KEY, RUFF, SIZEs,°KEY BUFF 


mw 
> 


COUNT: ,wORD a 
i 


rw 
— 


2e 3; OPEN FILE, CONNECT STREAM 
23 3 

24 ePSECT CODE 

25 BEGIN: ,.wORD a 


2b SOPEN FABZINFAB 

o7 PLBC RA,EXIT » BRANCH ON ERROR 

oa S$CONNECT RABSINRAB ¢$ CONNECT STREAM 

29 RLBC RO,EXIT 3 BRANCH ON ERROR 

3A 3 

31 3 READ RECORDS, COUNTING TYPE “A*® RECORDS 

32 3 

33 MQVA #°A/A/, KEY. BUFF y SPECIFY KEY WE°RE SEARCHING FOR 
%u SFIND RABZINRAB + POSITION TO FIRST TYPE *%A* REC 
35 »y NOTEs THIS IS THE RECORD THAT 
36 jy WILL BE ACCESSED ON FIRST GET 
37 BLBC RO,EXIT + BRANCH ON ERROR 

38 GRAB, STORE RABsINRAR,@ » CHANGE RECORO ACCESS MODE TO SEQ, 
39 RAC&SED 

4A READ? §GET RAAZINRAB y READ A RECORD 

ui BLBC Ra,DONE 3 BRANCH ON ERROR 

42 ¢ (ERROR MAY BE EDF) 

43 CMPL Ra,#RMSS OK LIM ' IS RETREIVED RECORD’S KEY 

au y > THAN KEY VALUE IN KEY BUFF 
us BEQL DONE y ALL DONE 

46 INCA COUNT 9 COUNT TYPE *°A*® RECORD 

a7 BRB READ 9 GO GET THE NEXT RECORD 

4B 3 - 

49 + ALL DONE, CLOSE FILE AND ExtT, 

5a 3 

Si DONE: SCLOSE FABSINFAB p CLOSE THE FILE 

S2 EXIT SEXIT,S RB » EXIT WITH STATUS 

53 

54 w END BEGIN 


Figure 4-6 Program to Count Records in an Indexed File 
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4.3.2 Creating an Indexed File 


The sample program in this section illustrates how to create a new 
indexed file by copying an existing file of any organization. The 
format and contents of the records in the file are the same as_ those 
described in Section 4.1.1. 


Assume that, external to the program, the following assignments’ will 
be made: 


S$ ASSIGN 18SEP78.INV INFILE: 
S ASSIGN 18SEP78 .CPY OUTFILE: 


Because this program uses two files, one for input and one for output, 
two separate FABs are required to describe the files. For the input 
file, you need only define the file specification. In the external 
assignment, it waS equated to INFILE:. Therefore, with the FNM 
parameter, you indicate the file as follows: 


INFAB: SFAB FNM=<INFILE:> 


For the output file, you must also define the file specification. In 
the external assignment, it was equated to OUTFILE:. Because you are 
creating this file, you use the SPUT macro instruction to write 
records to the new file. The default is write access when creating a 
file; therefore, you need not specify FAC=PUT. When you create a 
file, you must indicate the record format. In this file, the records 
are variable length, so the specification is RFM=VAR. 


You also must specify the maximum record size. For fixed-length 
records, the maximum record size indicates the actual length of each 
record in the file. For variable-length records, the maximum record 
size specifies the size limit for a record being written initially 
into the file, or an existing record being updated. If you do not 
specify the maximum record size, it is limited only by bucket size. 
In this example, the maximum record size and record size are 
identical. The records for this file are each 50 bytes long. You can 
specify this limit either by indicating MRS=50 or by defining a record 
size within your program, for example, REC SIZE=50 and MRS=REC SIZE, 
and referring to this definition defining the record size in your 
program also lets you make other references to this record size within 
your program, for example, in defining the size of the buffer areas 
for the RAB. 


You must specify that the file is an indexed file and you must specify 
the initial extended attribute blocks of the chain, so _ the 
specifications are ORG=IDX and XAB=KEYO. 


As an option, you can indicate that each record is to be preceded by a 
line feed and followed by a carriage return whenever the record is 
output to a line printer or terminal. Set the record attributes field 
with RAT=CR. The FAB for the output file is then defined as follows: 


OUTFAB: $FAB FMN=<OUTFILE:>,- 
RFM=VAR ,- 
MRS=REC_SIZE,- 
ORG=IDX>- 
XAB=KEYO ,- 
RAT=CR 


You must also define RABS for both files. The FAB parameter 
associates a RAB with the appropriate FAB. Because the sequential 
record access mode is the default, you can omit the RAC parameter. 
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Both files also need a buffer area. In fact, they both can use_ the 
same buffer area, since you're going to read a record into a buffer, 
and then write it from the buffer before you read another record into 
the buffer. The output RAB, however, uses the RBF and RSZ parameter 
to define the buffer, rather than the UBF and USZ parameters. The 
reason is that the $PUT macro instruction does not use UBF and USZ as 
input; it uses RBF and RSZ. The SRAB macro instructions would be as 
follows, with the input RAB shown first. 


INRAB:  SRAB’ FAB=INFAB,- 
UBF=REC_BUFFER,- 
USZ=REC SIZE 


OUTRAB: $RAB FAB=OUTFAB,- 
RBF=REC_BUFFER,- 
RSZ=REC_SIZE 


Since you are creating an indexed file, you must specify the primary 
key and the alternate keys, if any. In this example the primary key 
(key 0) and two alternate keys (key 1 and key 2) are defined. They 
are defined by the key definition extended attribute blocks SXABKEY 
REF=0, S$XABKEY REF=1, and SXABKEY REF=2 macro instructions 
respectively. The position of the keys within each record and the 
length of key must be specified with the POS and SIZ parameters. 


In the sample program, the primary and alternate keys are simple keys 
(that is, not segmented); hence, only one position parameter value 
and one size parameter value is defined for each key. Simple keys 
consist of a single string of contiguous bytes. You should note that 
if segmented keys are specified, the key position and key size fields 
must define an equal quantity of key position values and key size 
values. The key position value is the starting (byte) position of the 
key within each record (with the first byte being byte 0, the second 
being 1, etc.). The key size value is the length (in bytes) of the 
key; in the sample program, the primary key is a simple key, starting 
in the first byte of the record and is five bytes’ long; this is 
defined as follows: 


KEYO: SXABKEY REF=0,- 
POS=0,- 
SIZ=5,- 
NXT=KEY1 


Note that the NXT parameter points to the next XAB in the chain, which 
has a label of KEYI1. 


The alternate keys (key 1 and key 2) likewise are defined as being in 
byte positions 6 and 7, respectively, and as being 1 and 20 bytes in 
length, respectively. They are defined as follows: 


KEY1: SXABKEY REF=1,- 
POS=5,- 
SIZ=1,- 
NXT=KEY2 


and 


KEY2: SXABKEY REF=2,- 
POS=6 , 
SIZ=20 


Note that the NXT parameter is omitted from the XAB with a label of 
KEY2; therefore the default is 0, which indicates there are no more 
XABs in the chain. 7 
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In the sample program, the alternate keys may change values (on an 
update) and there may be duplicate alternate keys. Changes and 
duplications can be defined by FLG=<DUP,CHG>; this is also the 
default for alternate keys and, therefore it is not necessary to 
actually define this parameter. 


The default for the primary key is no duplicates allowed. The primary 
key is never allowed to change key value on update. 


The run-time processing macro instructions for the input file consist 
of a SOPEN, a SCONNECT, a SGET, and a SCLOSE. For the output file, 
you must specify a SCREATE macro instruction (rather than an SOPEN), 
which opens and constructs a new file. In this macro instruction, you 
indicate the FAB that contains the attributes for the new file, as 
follows: 


SCREATE FAB=OUTFAB 


As with the input file, you must also specify the S$CONNECT macro 
instruction to connect the record stream and the SCLOSE macro 
instruction to close the file. However, before the file is closed, it 
must be processed. In the case of a copy operation, records must be 
written to the new file. Use the SPUT macro instruction, specifying 
the RAB, as follows: 


SPUT RAB=OUTRAB 


Figure 4-7 lists the program code to copy a file. The VAX-11 RMS 
macro instructions appear in red. 


ee ee 
OMnTMN OWI CHO BWA OW FWA = 


Mw Mw ft 99 9 AG Ne TA fu fy 
O@mMnrwTUESWWwWe- 


3a 


lw 
-—- 


tod Led ld td tt od 
ma~ Pt UI We 


& & i 
== 2 Oo 


cfr e& 
ew 


PROCESSING FILES WITH SEQUENTIAL RECORD ACCESS MODE 


COPYFILE MAKE COPY 


’ 
9 PROGRAM TO MAKE A COPY OF THE INPUT 


eTITLE 
’ 
REC, SIZEs5@ 
ePSECT 
INFAB: SFAB 
INRABs S$RAB 


OUTFABs S$FAB 


OUTRABE $RAB 


’ 
; 
’ 
K 


CREATE NEW FILE WITH 


DATA, LONG 
FNM@<INFILEg> 
FABSINFAB,@ 
UBFaREC BUFFER, = 
USZaREC SIZE 
FNMSe<OQUTFILE:>,= 
RFMaVAR,= 
MRS@REC, SIZE, 
ORGBIDX,= 
XABSKEY@,«@ 
RATSECR 

RAF MREC,BUFFER,© 
RSZSREC SIZE 


EY2}3 $XASKEY REFs@,= 
POSa0,@ 
81Z35,° 
NXTSKEY | 

KEY: SXABKEY REFaji,e< 
POS25,= 
SIZai,« 
NXTSKEY 2 

KEY?) $XABKEY REFS2,2 
POSa6,+ 
SIZ222 

; 

REC BUFFER? ~BLKB REC,SIZE 

? 

ePSECT CODE,NOWRT 
} 
} INITIALIZATION @ 
? 
START: ,WORD a 
SQOPEN FABSINFAB 
AL BC ROZ,-EXIT1I 
$CREATE FABZOUTFAS 
BLBC RO,EXIT{ 
S8CONNECT RABZINRAB 
ALAC RA,EXITY 
SCONNECT RABSOUTRAB 
BLBC R@,EXITI\ 
? 
s COPY RECORDS 
’ 
READ? GET RABSINRAB 
BLBC RO, DONE 
SPUT RABSOUTRAB 
8L8$ R@,READ 
EXIvis BRB EXIT 
J 
» ALL SET © CLOSE FILES AND EXIT 
3 
DONE? SCLOSE FABsINFAB 
SCLOS8E FABRSOUTFAB 
EXITs SEXIT.8S RO 
o END START 
Figure 4-7 
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PROCESSING FILES WITH RANDOM RECORD ACCESS 


Two different modes provide random access to records: 
e Random by key 
e Random by record's file address 


In the random by key access mode, you retrieve or store a record by 
specifying a key value. In the random by record's file address access 
mode, the retrieval or storage of the record is based on a_e unique 
address returned to the user by VAX-11l RMS. 


Section 5.1 deals with random access to. the sequential file 
organization. Section 5.2 deals with random access to the relative 
file organization. Section 5.3 deals with random access to the 
indexed file organization. 


5.1 RANDOM ACCESS TO SEQUENTIAL FILE ORGANIZATION 


The sequential file organization provides for random access to records 
only if the file containing the records is on a disk device. 


The sequential file organization allows random retrieval of 
fixed-length records by means of keys only (a key in a sequential file 
is the relative record number assigned to each record). To gain 


random access to variable-length records in a sequential file, you 
must use the random by record's file address mode. 


5.1.1 Random Read of a Record 


This section describes a sample program that accepts the key (relative 
record number) from the operator, finds the requested record in a 
file, and then displays the contents of the record. 


Assume that the following external assignment will be made: 

S ASSIGN 18SEP78.INV INFILE: 
You must provide this program with definitions for three files: an 
output file, a file to accept the request, and an input file (where 


you define that the record access mode is random, since the input file 
is the one you search for the records). 
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OUTPUT FILE 


The first file that must be defined is the output file, SYSSOUTPUT:, 
which is. a process logical name assigned for the output stream. For 
an interactive user, SYSSOUTPUT is a terminal. The FAB for this’ file 
only need provide this name, and also an optional record attribute 
that induces a line feed before and a carriage return after printing 
the record at the terminal. 


TYPE FAB: SFAB FNM=<SYSSOUTPUT> ,- 
RAT=CR 


At assembly time, the SRAB macro instruction only need associate the 
RAB with the FAB. 


TYPE RAB: SRAB FAB=TYPE FAB 


The actual contents of the RAB are defined dynamically, at run time 
rather than assembly time with a S$RAB STORE macro instruction. The 
reason for this is that the record to be output varies. On the one 
hand, records from the input file are displayed (see lines 83 through 
86 of Figure 5-1), while on the other hand, a number of fixed strings 
are output using the "TYPE" macro (see lines 82, 92, and 94; the 
macro definition itself appears on lines 7 through 17). Each of the 
different outputs requires that the RSZ and RBF parameters be set 
dynamically to indicate the record to be written. 


The SRAB STORE macro instruction indicates the symbolic address of the 
RAB allocated at assembly time. It must also define the location and 
size of the buffer that contains the record to be printed on 
SYSSOUTPUT. When displaying records read from the input file, the 
location and size are at the address of INRAB (the input RAB) plus the 
offset to each field (RABSL_RBF for the address and RABSW_RSZ for the 
size). 


SRAB_STORE RAB=TYPE_RAB,- 
RBF=@ INRAB+RABSL_RBF,- 
RS Z=INRAB+RABSW_RSZ 


REQUEST FILE 


The second file that must be defined is the request file, which 
prompts a message to solicit information from the operator and accepts 
the requested record number from the terminal. This file is 
SYSSINPUT:, which is a process logical name. Note that for an 
interactive process, SYSSINPUT and SYSSOUTPUT both refer to a 
terminal. In this example, it would be possible to use the same file 
(either SYSSINPUT or SYSSOUTPUT) to accept requests and display 
output. In so doing, however, you would lose the ability to run the 
program within a batch stream. (As the program currently stands, you 
could do this.) 


PROMPT FAB: SFAB FNM=<SYSS INPUT: > 


The RAB you connect to this FAB defines a buffer area and associates 
the RAB with the FAB. The RAB also defines a record processing option 
of ROP=PMT. This option indicates that the contents of the specified 
prompt buffer (filled as part of the expansion of the "PROMPT" macro), 
are to be output to the terminal operator in order to indicate what 
data is being requested for output. 


PROMPT RAB: SRAB FAB=PROMPT FAB,~- 
UBF=PROMPT BUFF,- 
USZ=132,- 
ROP=PMT 


a= 2 
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INPUT FILE 


The third file that must be defined is the input file, which must 
provide the file specification. The external assignment equates 
18SEP78.INV to INFILE:. 


INFAB: | SFAB FNM=<INFILE:> 


The RAB associated with this file must name its FAB and define a 
buffer area. The record stream of this RAB will deal with records by 
their relative record number, so you must set a value in the_ key 
buffer address’ field. This value points to a buffer you set up to 
contain the relative record number of the record you want. In the 
program listed in Figure 5-l, the address’ of the buffer is KEY; 
therefore you set KBF=KEY. Access to the records in this file is 
through the random by key mode (the relative record number is the key 
for sequential files). You indicate this by setting RAC=KEY. (The 
specification of KEY in this case should not be confused with KBF=KEY, 
explained previously. The specification of KEY for the record access 
mode is defined by VAX-11 RMS to indicate key value, which is the 
relative record number. In KBF=KEY, the KEY specification is 
user-defined.) 


INRAB: SRAB FAB=INFAB,- 
UBF=REC BUFFER,- 
USZ=REC BUFFER SIZE,- 
KBF=KEY ,- 7 
RAC=KEY 


When the three files are defined, you must uSe run-time macro 
instructions to call the routines that act on these files. 


You must open the input file (INFILE) and the request file (SYSSINPUT) 
with SOPEN macro instructions, The output file for the terminal 
(SYSSOUTPUT) uses a SCREATE macro instruction, since this iS an output 
file to be created. However, since SYSSOUTPUT is a logical name, the 
file was created for you when you logged into the system. Therefore, 
this SCREATE macro instruction acts as a SOPEN macro instruction, so 
you could, in fact, use the SOPEN macro instruction for SYSSOUTPUT in 
this program. 


Each file you open in the program must have a RAB’ connected to the 
appropriate FAB with a SCONNECT macro instruction. 


For the input file, use a SGET macro instruction to retrieve’ the 
record. For the output file, use a SPUT macro instruction to place 
the record in SYSSOUTPUT so it can be printed at the terminal. 


All open files must be closed when you finish processing. Therefore, 
you must use three SCLOSE macro instructions. 


Figure 5-1 lists the program code that accepts the key (relative 
record number) from the operator and displays the contents of that 


record on the terminal. Note that in this program, two macro 
definitions appear. The first builds the string that is displayed on 
the terminal. The second macro definition accepts input from 


SYSSINPUT and prompts with the string specified as its argument. 
Notice that both of these macro definitions make use of run-time macro 
instructions (SPUT and SGET) in their construction. 


You will also note that this program is written in subroutines, 
Therefore, for some files, the SCLOSE macro instruction appears before 
the SOPEN or SCREATE macro instruction. 
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PROGRAM TQ ACCEPT RECORD NUMBER FROM OPERATOR AND DISPLAY 


eTITLE OISPLAY = DISPLAY SPECIFIED RECOFD 
: 
; 
: CORPESPONNDING RECORD 
’ 
eMACRO TYPE STRING 
eo SAVE 
oPSECT TYPE,STRINGS, NOWRT 
eee Tl MPAS, 
eASCII N\STRINGN 
ooo MPLS, aaa TMPS 
eRESTCRE 
MOVL Beare TPA, TYPE, RAB+RABEFEL, RAF 
“OVw TeeeTMPL, TYPE RAB+RABS$W_RS?Z 
PUT RARZTYPE RAH 
ee NIM 
eMACEN PROMPT STRING 


e SAVE 
ePSECT TYPE,STRINGS, NOWRT 
eon TMPAZ, 
ePYTE 13, 1. 
eASCIT NSTRINGN 
avo lT MPLS, Sea, TMF A 
eRESTUPE 
MOVE eee T MPO, PROMPT RAKFRAREL PBF 
MOVE Bee eTMPL, PROMPT _RARFRARGH PBZ 
GET RAR s PWOMPT RAR 
MOVZ8L PROMPT RAR+RABRSW_RSZ,K I 
MOVL PROMPT FAKF+HABEL,RBF,RO 
et hDr 
; 
ePSECT NATA,LONG 
TYPE, FARS $FA8 FNME<SYSSOUTPUTI>,@ 
RATSCR 
TYPE BARS $RAK FABSTYPE_FAB 
OROMPT FAE? SFAR FNMa<SYSEINPUT 23> 
PROMPT RABY RAR FABSPROMPT FAB,= 
JBFSPROMPT BUFF,«= 
US22132,° 
ROPSPMT 
PROMPT BUFF 3 eBLKA = 132 


? 
INF 4B? $F AR 
INRABS SRAR 


FPNMSCINFILE > 
FARZINFAB,;© 
UMFSREC SUFFER,®©= 


USZ®REC, BUFFER, SIZE,® 


KBFRKEY,= 
RACSEKEY 
REC BUFFERS e BL KB 52 
REC BUFFER, SIZE#,=REC,_ BUFFER 


eALIGN LONG 
KEY eBLKL j 
3 
5 
7 OPEN FILE,CONNECT STREAM 
ePSECT CODE, NOAPT 
BEGIN: WORD 2 


SOPEN FABSINFAB 
BLBC RA, EXIT! 
$CONNECT RPABZINRAB 
RLBS RA,CONTY 
EXITis AR«K EX]T 
CONT1: &SAb INIT, TYPE 


; 
+ ACCEPT NUMBER OF RECORD TC BE DISPLAYED 


GET,REC,NO% 
PROMPT «ENTER RECORD NUMAER?> 
BLBS RZ,CONT2 
Ri w DONE 


Figure 5-1 Random Read of a 
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STORE STRING 

NOTE LENGTH 
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SET PROMPT BUFFER ANDRESS 
SET PROMPT BUFFER SIZE 

GET THE INPUT 

GET INPUT LENGTH 

GET INPUT ADDRESS 
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BRANCH ON ERROR 
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KRANCH ON ERROR 

INJTIALIZE TYPE AND PROMPT FILES 
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BRANCH O(N SUCCESS 
BRANCH UN ERROR 
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CONVERT KEY TO BINARY 
BRANCH IF RAD 

SET RECORD NUMBER 

GET RECORD FOR PART 
BRANCH ON ERROR 


PRINT RECORD 
BRAHCH ON ERROR 
LOOP 


INITIALIZE OQUTPUT VALUE 

GQ CHECK IF ANY CHARACTERS 
SHIFT PARTIAL RESULT 

BRANCH ON OVERFLOW 

GET BINARY VALUE FOR CHARACTER 


BRANCH IF BAD 

CHARACTER » 9 ? 

BRANCK IF BAD 

ADD IN CHARACTER TO PARTYAL RESUL 
ANY MORE INPUT? 

BRANCH IF MORE 

SHOW SUCCESS 


SHOW FATLURE 


FILES 


77 CONT2@?: BSBr CONVERT KEY 

7&4 BL&AC R2,BAD, KEY 

79 MOVE RB, KEY 

BA SGET RABSTNRAR 

AY BLBU RO,BAD, PART 

82 | 

Az SRAB STORE RABSTYPE RAR, 
au RBFS@INRAR+RABSL RAF,S= 
AS RSZSINRAB+RAREW RSZ 

6&6 PLT RARER. 

& 7 RLBC R,EXIT 

Wa BRw GET,REC,NO 

AQ 3 

9” 3 REPGRT ERRORS 

91 3 

92 RAD KEY? TYPE €BAD KEY VALUES» 
93 ARW GET,REC,NO 

94 BAN PART? TYPE «RECORD NOES NOT EXIST,> 
95 BRwW GETL,REC NO 

96 

97 3 

98 3 ALL DONE # CLOSE FILES ANDO EXIT 

99 3 

14% DONE? $CLOSE FABZINFAB 

1a} €CLOSE FABESTYPE_FAB 

182 $CLOSE FABaPROMPT_FAB 

1483 ExITs $EXIT,S RB 

125 3++ 

196 3 

197 3 SUBROUTINE TO CONVERT ASCII INPUT STRING TO BINARY 
108 3 

199 3 INPUTS? Ri, R2 = LENGTH AND ADDRESS QF INPUT STRING 
110 4 

{11 3 OUTPUTS: R®@ @» STATUS CODE 
{i2 3 R3 = BINARY VALUE 
113 3 Rt, P2, RH CESTROYED 

114 poe 

115 CONVERT KEY? 
116 CLRQ R3 

117 BRB 2Aa§ 

1186 1083 MULL2 H#1%, R3 

119 BVS 3V§ 

129 SUBB3 HPA/DA/, (R24, RY 

121 ALSS 303 . 

122 CMPB RU,H*A/G/@*A/BO/ 

123 BGTRU 303 

124 ADDL2 R&, RZ 

125 2083 DECL Ri 

126 BGEQ 1¢$ 

127 MOVL Wi, RY 

128 RSB 

129 3083 CLRL RA 

130 RSB 

131 34% 

132 3 

133 3 SUBROUTINE TO INITIALIZE THE TYPE AND PROMPT 
134 3 

135 yee 

136 INIT TYPE? 

137 SCREATE FABSTYPE,_FAR 

138 SOPEN FAB=ZPROMPT_FAB 

139 SCONNECT RABSTYPE,RAB 
14@ SCONNECT RaB = PROMPT _RAB 
143 RS$B 

i142 

143 eEND BEGIN 


Figure 5-1 (Cont.) Random Read of a Sequential File 
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9.2 RELATIVE FILE ORGANIZATION 


Random access to the relative file organization, like any access’ to 
the relative file organization, is available on disk devices only. 


Relative file organization, unlike sequential file organization, does 
not require that records be fixed-length in order to use random 
access. Therefore, the relative file organization provides more 
flexibility for random access than does the sequential file 
organization. However, it does cost more in space requirements, since 
all record cells are the same size, and some (or all) may not be 
completely filled. 


5.2.1 Random Read of a Record in the Relative File Organization 


This section describes a sample program illustrated in Figure 5-2 that 
builds on the program listed in Figure 5-1. The only difference 
between the programs is that the input file in this program uses’ the 
relative file organization. Since it is an input file, you do not 
have to indicate the file organization when you open a file and you do 
not have to change the FAB to indicate the relative file organization. 
(Note, however, that you do have to change the input file FAB when you 
specify the S$DELETE macro instruction. See the following discussion.) 


This program, besides accepting the key (relative record number) from 
the operator and displaying the contents of the record on the 
terminal, also queries the operator as to whether or not the-~ record 
should be deleted. Therefore, you must use a S$DELETE macro 
instruction within the code that handles record deletion (lines 93 
through 101 of Figure 5-2). 


SDELETE RAB=INRAB 


This SDELETE macro instruction points to the RAB for the input file. 
The relative file organization lets you delete a record from anywhere 
in the file, thereby leaving the record cell free to accept another 
record. You do not have to create a new file; the input file, in 
effect, is also the output file. (You cannot use the SDELETE macro 
instruction with the sequential file organization. To remove a record 
from a sequential file, you must use the S$TRUNCATE macro instruction, 
but it is limited to removing a record, and any succeeding records, 
from the end of a file. There cannot be empty space in the sequential 
file organization, because it does not use the concept of record 
cells.) 


When you specify the SDELETE macro instruction, you also must make a 
change to the input file FAB to indicate, in the file access field, 
that a delete operation can occur. Do this by adding FAC=<DEL> to the 


SFAB macro instruction. You can omit the angle brackets from DEL; 
you only need them if more than one operation applies. (In reality, 
more than one operation does apply to this file. For example, since 
you are also going to retrieve records, you could specify 


FAC=<DEL,GET>, to indicate the get operation. However, GET is implied 
by DEL, so you can omit it.) 


INFAB: SFAB FNM=<INFILE> ,- 
FAC=<DEL> 


Figure 5-2 lists the program code that accepts the key (relative 
record number) from you and displays the contents of that record on 
the terminal, with the option to delete the record. 


Appendix A contains additional examples of random access to the 
relative file organization. 


5-6 


ODYPeMW EWN 


PROCESSING FILES WITH RANDOM RECORD ACCESS 


eTITLE DISPLAY = DISPLAY SPECIFIED RECORD 
’ 
y PROGRAM TO ACCEPT RECORD NUMBER FROM OPERATOR AND DISPLAY 
y CORRESPONDING RECORD 
' 
j 
eMACRO TYPE STRING : MACRO TO TYPE "STRING" 
eSAVE $ SAVE CURRENT PSECT 
ePSECT TYPE,STRINGS, NOWRT y CHANGE TO TYPE STRINGS PSECT 
ooo TMPAB, } NOTE ADDRESS 
eASCIT N\STRINGN 3 STORE STRING 
eos MPLS, ™eoelMPA } NOTE LENGTH 
eRESTORE y BACK TO: ORIGINAL PSECT 
MOVL HMeeeTMPA, TYPE,RAB+RABSL,RBF y SET STRING ADDRESS 
MOVW Beers tTMPL, TYPE,RAB+RABSW_RSZ ; SET STRING LENGTH 
$PUT RABRTYPE,_RAB 9 WRITE THE RECORD 
eENDM 
’ 
eMACRO PROMPT STRING y MACRO TO ACCEPT INPUT 
: FROM SYSSINPUT, PROMPTING 
3 WITH "STRING" 
eo SAVE § SAVE CURRENT PSECT 
ePSECT TYPE,STRINGS, NOWRT ¢ CHANGE TO TYPESTRINGS PSECT 
eee MPA, s NOTE ADDRESS 
e BYTE 13, {4 y CARRIAGE RETURN, LINE FEED 
eASCIT NSTRINGN ¢ STORE STRING 
woe tTMPLS, meee TMPA ¢ NOTE LENGTH 
eRESTORE » BACK TO ORIGINAL PSECT 
MOVL HeeeTMPA, PROMPT _RAB+RABSL.PBF 3 SET PROMPT BUFFER ADDRESS 
MOVB HeeeTMPL, PROMPT,_RAB+RARSB,PSZ 3 SET PROMPT BUFFER SIZE 
EGET RAB = PROMPT_RAB ; GET THE INPUT 
MOVZ¥L PROMPT _RAB+RARSWRSZ, RY s GET INPUT LENGTH 
MOVL PROMPT, _RAR+PARSL RRF,R2 s GET INPUT ADORESS 
eEND™M 
’ 
eMACRO ON,ERPOR DEST, ?L » MACRO TO BRANCH ON ERROR 
ALBS RO—el + BRANCH ON SUCCESS 
BRW DEST ¢ LONG FORM OF BRANCH 
Ls 
eENDM 
! 
ePSECT DATA,LONG 
TYPE,_FABS $FAB FNMS<SYSSOUTPUT3>,@ 
RATSCR 
TYPE,_RABS SRAB FABSTYPE,_FAB 
PROMPT, FAB$ SFAQ FNMS<SYSSINPUTS> 
PROMPT RAB? $RAB FABsPROMPT_FAB,= 
UBF sPROMPT,_BUFF,@ 
USZa#132,= 
ROPsPMT 
3 
INFABt SFAB FNM@<INFILES>,@ 
FACE<DEL> 
INRABs SRAB FABSINFAB,@ 
VBFaREC,_BUFFER,= 
USZBREC_ BUFFER _SIZE,= 
KBFakEY,e 
RACaKEY 
; 
PROMPT, BUFF 3 eBLKB 132 
REC BUFFER? e8LKB SQ 9 USER RECORD BUFFER 
REC, BUFFER, ,SIZES,°REC, BUFFER 
eALIGN. LONG 
KEY$ eBLKL | s RECORD NUMBER TO RETRIEVE 
; 
: OPEN FILE,CONNECT STREAM 
; 
ePSECT CODE,NOWRT 
REGINs WORD @ 
SOPEN FABRINFAB , OPEN INPUT FILE 
ONL ERROR EXIT 3 BRANCH ON ERROR 
SCONNECT RABSINRAB 1 CONNECT STREAM 
ON, ERROR EXIT ¢ BRANCH ON ERROR 
Figure 5-2 Random Read of a Relative File 
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75 BSBW INIT TYPE s INITIALIZE TYPE AND PROMPT FILES 
76 3 

77 3 ACCEPT NUMBER OF RECORD TO BE DISPLAYED 

TA y 

79 GET,REC,NO? 

AA PROMPT <ENTER RECORD NUMBER S> s GET RECORD NUMBER 

&1 ON, ERROR DONE 9 BRANCH ON ERROR (E,G,, EOF) - 
Be BSBw CONVERT KEY y CONVERT KEY TO BINARY 
a3 ON, ERROR BAD KEY ; BRANCH IF SAD 

Bu MOVL R3,KEY 3 SET RECORC NUMBER 

85 $GET RABEINRAB ; GET RECORD FOR PART 

Bo ON, ERROR BAC, PART » BRANCH ON ERROR 

BT TYPE «RECORD IS3> } 

BB SRAB STORE RABSTYPE,RAB,= 

a9 RAF s@INRAB*RABSL _RBF, = 

9a RSZSINRAB+RABSW,RSZ 

91 $PUT RABERS y PRINT RECORD 

92 ON, ERROR EXIT » BRANCH ON ERROR 

93 PROMPT «DELETE RECORD (Y/N) ?> 9 ASK IF RECORO SHOULD BE OCELETED 
9u ON, ERROR DONE 3 GRANCH ON ERROR 

95 TSTW Ri y ZERO LENGTH INPUT? 

96 BEOL GETNXT 3 BRANCH IF YES 

97 CMPB (R2),4°A/Y/ ¢ ANSWER START WITH °Y°? 
98 BNEQ GETNXT + BRANCH IF NOT 

99 SDELETE RABsSINRAB ¢ DELETE RECORD 

10€ ON,_ERROR EXIT y BRANCH ON FAILURE 

121 TYPE <RECORD DELETED,> 

142 GETNXTs 

123 ARW GET,REC,NO y LOOP 

104 y 

105 » REPORT ERRORS 

196 3 

197 BAD _KEY?3 TYPE <BAD KEY VALUEJ> 

1@8 BRW GET, REC_NO 

109 BAD, PART? TYPE <RECORD DOES NOT EXIST,> 

119 BRW GET, ,RECNO 

111 

1i2 3 

143 3 ALL DONE «©» CLOSE FILES AND EXIT 

114 3 
115 DONE? $CLOSE FABSINFAS 
116 $CLOSE FARSTYPE,FAS 

117 SCLOSE FABRPROMPT FAR 

118 EXITs SEXIT,S Ra 

119 344 

12@ 

t21 9 SUBROUTINE TG CONVERT ASCII INPUT STRING TO BINARY 

lee 3 

123 3 INPUTS? Ri, F2 8 LENGTH AND ACDRESS OF INPUT STRING 

124 3 

125 3+ OUTPUTS: RA = STATUS CONE 

126 3 R% = BINARY VALUE 

127 3 Rt, Ree RY DESTROYED 

128 i) 

129 CONVERT KEYS 

130 CLRG R3 s INITIALIZE OUTPUT VALUE 
131 BRA 2as 3 GO CHECK IF ANY CHARACTERS 
132 1a: MULL2 H1iA, RS 3 SHIFT PARTIAL RESULT 
133 BVS 308 : BRANCH ON OVERFLOW 

134 SUBB3 HPA/A/, (R2)4, RG 3 GET RINARY VALUE FOR CHARACTER 
135 BLSS 3a$ y BRANCH JF BAD 

136 CMPB RU, #*A/9/O™ASO/ 3 CHARACTER >» 9 ? 

137 BGTRU 30$ 3 BRANCH IF BAD 

138 ADOL2 Ru&, R3 ¢ ADO IN CHARACTER TO PARTIAL RESUL 
139 2A$3 DECL RY ¢ ANY MORE INPUT? 

14¢ BGEO ius 3 BRANCH IF MORE 

141 MOVL #1, RA $ SHOW SUCCESS 

142 RSB 

143 3083 CLAL Rd : SHOW FAILURE 

144 RSB6 

145 y+ 

146 3 

147 3 SUBROUTINE TO INITIALIZE THE TYPE AND PROMPT FILES 


Figure 5-2 (Cont.) 


Random Read of a Relative File 
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148 3 

149 | Baten 

150 INIT TYPE: 

151 SCREATE FABSTYPE,FAB 

152 SOPEN  FABSPROMPT, FAB 

153 SCONNECT RABSTYPE,RAB 

154 SCONNECT RAB = PROMPT,RAR 
155 RSB ) 

156 

157 2END BEGIN 


Figure 5-2 (Cont.) Random Read of a Relative File 


5-3 INDEXED FILE ORGANIZATION 


Random access to the indexed file organization, like any access to the 
indexed file organization, iS available on disk devices only. 


In an indexed file, random access by key is independent of the record 
format (either fixed or variable). Therefore, the indexed file 
provides more flexibility for random access than does the relative or 
sequential file organizations. 


5.3.1 Random Read of a Record in the Indexed File Organization 


This section describes a sample program, illustrated in Figure 5-3, 
that builds upon the program listed in Figure 5-l. The major 
difference between the programs is that the input file in this program 
uses the indexed file organization. Since it is an input file, you do 
not have to indicate the file organization when you open a file. 


This program, besides accepting the key (the part number) from the 
operator and displaying the contents of the record on the terminal, 
also modifies the discount type field of that record to contain an A. 
Then this program sequentially accesses and displays any subsequent 
records containing part numbers in which the first four characters 
match those of the first record accessed. Therefore, you must use a 
SUPDATE macro instruction within the code that handles record updating 
(lines 94 through 103 of Figure 5-3). 


SUPDATE RAB=INRAB 
This SUPDATE macro instruction points to the RAB for the input file. . 
Assume that the following external asSignment will be made: 

S$ ASSIGN 18SEP78.INV INFILE: 
You must provide this program with definitions for three files: an 
output file, a file to accept the request, and an input file (where 
you define that the record access mode is random, since the input file 
is the one you search for the records). 
OUTPUT FILE 
The first file that must be defined is the output file, SYSSOUTPUT:, 


which isS a process logical name assigned for the output stream. For 
an interactive user, SYSSOUTPUT is a terminal. The FAB for this’ file 
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only has to provide this name and an optional record attribute that 
induces a line feed before and a carriage return after printing the 
record at the terminal. 


TYPE FAB: SFAB FNM=<SYSSOUTPUT: > ,- 
RAT=CR 


At assembly time, the SRAB macro instruction only has to associate the 
RAB with the FAB. 


TYPE RAB: SRAB FAB=TYPE FAB 


The actual contents of the RAB are defined dynamically, at run time 
rather than at assembly time, with a SRAB STORE macro instruction. 
The reason for this is that the record to be output varies. On one 
hand, records from the input file are displayed (see lines 111 through 
114 of Figure 5-3), while on the other hand, a number of fixed strings 
are output using the "TYPE" macro (see lines 124,128, and 134; the 
macro definition itself appears on lines 11 through 22). Each of the 
different outputs require that the RSZ and RBF parameters be set 
dynamically to indicate the record to be written. 


The SRAB STORE macro instruction (see line 111) indicates the symbolic 
address of the RAB allocated at assembly time. It must also define 
the location and size of the buffer that contains the record to be 
printed on SYSSOUTPUT. When displaying records read from the input 
file, the location and size are at the address of INRAB (the input 
RAB) plus the offset to each field (RABSL RBF for the address and 
RABSW_RSZ for the size). 7 


SRAB_STORE RAB=TYPE RAB,- 
RBF=@INRAB+RABSL_RBF,- 
RS Z=INRAB+RABSW_RSZ 


REQUEST FILE 


The second file that must be defined is the request file, which 
prompts a message to solicit information from the operator and accepts 
the requested record number from the terminal. This file (see line 
52) is SYSSINPUT:, which is a process logical name. Note that for an 
interactive process, SYSSINPUT and SYSSOUTPUT both refer to a 
terminal. In this case, it would be possible to use the same file 
name (either SYSSINPUT or SYSSOUTPUT) to accept requests and display 
output. In so doing, however, you would lose the ability to run the 
program within a batch stream. 


PROMPT FAB: S FAB FNM=<SYSSINPUT: > 


The RAB you connect to this FAB defines a buffer area and associates 
the RAB with the FAB. The RAB also defines a record processing option 
of ROP=PMT. This option indicates that the contents of the specified 
prompt buffer (filled as part of the expansion of the "PROMPT" macro) 
are to be output to the terminal operator in order to indicate what 
data is being requested for output. ) 


PROMPT RAB: SRAB FAB=PROMPT FAB,- 
UBF=PROMPT BUFF ,- 
ROP=PMT 
INPUT FILE 


The third file that must be defined is the input file (see line 60), 
which must provide the file specification. The external assignment 
equates 18SEP78.INV to INFILE:. 
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When you specify the SUPDATE macro instruction, you also must make a 
change to the input file FAB to indicate, in the file access field, 
that an update operation can occur. Do this by adding FAC=<UPD> to 
the SFAB macro instruction. You can omit the angle brackets from UPD; 


you need them only if more than one operation applies. (In reality, 
more than one operation does apply to this file. For example, since 
you are also going to retrieve records, you could specify 


FAC=<UPD,GET> to indicate the get operation. However, GET is implied 
by UPD, so you can omit it.) 


INFAB: SFAB FPNM=<INFILE:>,- 
FAC=UPD 


When the three files are defined, you must use run-time macro 
instructions to call the routines that act on these files the same as 
described in Section 5.1.1 for the program listed in Figure 5-l. 


Each file you open in the program must have a RAB connected to the 
appropriate FAB with a SCONNECT macro instruction. 


For the input file, use a SGET macro instruction to retrieve the 
record. For the output file, use a $PUT macro instruction to place 
the record in SYSSOUTPUT so it can be printed at the terminal. 


All open files must be closed when you finish processing. Therefore, 
you must use three SCLOSE macro instructions. 


You switch from random to sequential access mode (see line 116, Figure 
5-3) in order to access and display any Subsequent records containing 
part numbers (the primary key) in which the first four characters 
match those of the first record accessed as follows: 


SRAB_ STORE RAB=INRAB , - 
RAC=SEQ 


Since you are accessing an existing indexed file, you do not have to 
specify the position or size of the key. However you must specify the 
key to search on. In this example, the primary key (key 0) is 
specified by default. 


Figure 5-3 lists the code for this program. 


Appendix A contains additional examples of random access to an indexed 
file. 


BNO MW WY 


eo oe ee ee ee Oe ee pe 
NOW £& Uf == 2 O 
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==. “2s SSE Ww Ww Wes7 ww WZ 


—?w “sS WS www". 3S *% 3s % 72 


MACRO TO TYPE "STRING® 


SAVE CURRENT PSECT 
CHANGE TO TYPE STRING 
NOTE ADDRESS 

STORE STRING 

NOTE LENGTH 

BACK TO ORIGINAL PSECT 
SET STRING ADDRESS 

SET STRING LENGTH 
WRITE THE RECORD 


MACRO TO ACCEPT INPUT 
FROM SYSSINPUT, PROMPTING 
WITH "STRING" 

SAVE CURRENT PSECT 

CHANGE TO TYPE STRINGS PSECT 
NOTE ADDRESS 

CARRIAGE RETURN-LINE FEED 
STORE STRING 

NOTE LENGTH 

BACK TO ORIGINAL PSECT 
SET PROMPT BUFFER ADORESS 
SET PROMPT SUFFER SIZE 


MACRO TO BRANCH ON ERROR 


CONTINUE ON SUCCESS 
BRANCH LONG ON ERROR 


eTITLE DISPLAY = DISPLAY RELATED RECORDS 
} 
¢ PROGRAM TO ACCEPT PART # FROM OPERATOR AND DISPLAY 
: CORRESPONDING RECORD AS WELL AS ALL SUBSEQUENT RECORDS THAT 
y MATCH THE FIRST FOUR CHARACTERS OF THE PART NUMBER, 
s MODIFY THE OITSCOUNT TYPE FIELD OF THE FIRST RECORD ACCESSED 
» TO CONTAIN AN fA%, 
; 
eMACRO TYPE STRING 
e SAVE 
ePSECT TYPE, STRINGS,NOWRT 
eee TMPAB, 
eASCIT NSTRINGN 
ooe MPL Bema ee TMPA 
eRESTORE 
MOVL Meee TMPA, TYPE _RAB+RABSL RBF 
MOVW Meee TMPLe- TYPE _RAB+RABSW_RSZ 
SPUT RABBTYPE RAB 
eE NOM 
? 
eMACRO PROMPT STRING 
eSAVE 
ePSECT TYPE,.STRINGS, NOWRT 
ove TMPAZ, 
»BYTE 13,12 
eASCII \N\STRING\ 
coe MPLB meee I MPA 
eRESTORE 
MOVL H#eee TMPA, PROMPT RAB+RABSL POF 
MOV8 HeeeTMPL, PROMPT RAB+RARSA,PSZ 
SGET RABESEPROMPT RAB 
MOVZWL PROMPT, RAB+RABEK,RSZ,R1 
MOVL PROMPT RAB+RABSL,_RBF,RO 
2ENDM 
’ 
eMACRO ON ,ERROR DEST. ?L 
ALBS R@oL 
BRW DEST 
Ls 
2ENDM 
, 
~PSECT DaTA,LONG 
TYPE FAB? SFAB FNMB<SYSSOUTPUT3>,@ 
RATSCR 
TYPE,RAB: $RAB FABRTYPE,FAB 
PROMPT. FAB? $FAB FNMB<SYSSINPUT3> 
PROMPT RAB? SRAB FABaPROMPTFAB,@ 
UBFePROMPT _BUFF,«@ 
USZai32,° 
ROPaPMT 
, 
¢ INPUT FILE FAB AND RAB AND XABS 
3 
INFAB: SFAB FNMa<INFILEs>,# 
FACsUPO 
, 
INRABs $RAB FABsINFAB,=@ 
UBFaREC .BUFFER,@ 
USZ@aREC _BUFFER,_SIZE,= 
KBFwKEY BUFF,@ 
KSZSKEY, BUFF, SIZE 
3 


’ 

PROMPT, BUFF: »BLKB 132 
REC, BUFFER} e8L KB $2 
REC SUFFER, SIZES, REC _ BUFFER 
DISCOUNT, TYPESREC , BUFFER#SS 


Figure 5-3 Random Read of an Indexed File 
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114 
115 
116 
117 
118 
119 
120 
121 
122 


123 
124 
125 
126 
127 


128 
129 
13¢ 
131 
13e 
133 
{34 
135 
136 
137 
136 
139 
14A 
144 
i4e 
143 
144 
145 
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eALIGN LONG 
KEY BUFF s »B8LKB ) 
KEY BUFF. SIZEs,*KEY_8UFF 
MATCH, PART,NOg ,ALKL 1 
MATCH, FLAG? 0 3LKB a 
’ 
s OPEN FILE. CONNECY STREAM 
; 

ePSECT CODE,NOWRT 
BEGIN¢ ,WORD a 

SOREN FABS2INFAB 

ON, ERROR EXIT 

S$CONNECT RABSINRAB 

ON, ERROR EXIT 

BSRBw INIT, TYPE 

’ 

y ACCEPT PART NUMBER OF RECORD TO BE DISPLAYED 
? 

GET PART .NO? 

PROMPT <FENTER PART NUMBER? 

ON, ,ERROR DONE 

MOVCS R1,(R2),#°A/O/,¢ 
#5, KEY BUFF 

$RAB, STORE RARSINRAS,@ 
RACEKEY 

$GET RABSINRAB 

ON, ERROR © BAD PART 

MOVB #*A/A/ DISCOUNT, TYPE 

SUPDATE RABSINRAB 

ON, ERROR EXIT 

TYPE <€RECORD CHANGED TO3> 

CLRB MATCH FLAG 

MOVL @INRAB+RABSL.RBF, MATCH PART NO 

DISPLAY! 

SRAB,_ STORE RABaTYPE,RAB,= 
REFR@INRAB+RABSL, RBF,@= 
RSZsINRAB+RABSW,RSZ 

SPUT RABRER@ 

ON ERROR EXIT 

SRAB, STORE RABSINRAB,®@ 
RaCa$EOQ 

§GET RABSR2 

BLBC R@e,CHECK,RELATED 

CMPL @INRAB+RABSL RBF, MATCH PART NO 

BNEO CHECK RELATED 

B&SS WiesMATCH_FLAG,DISPLAY 

TYPE CRELATED RECORD(S) 32 

BRB DISPLAY 

CHECK RELATED? 
BBS #1,MATCH FLAG, GETNEXT 
TYPE «NO RELATED RECORDS,» 
GETNEXT? 
BRW GET, PART NO 
y REPORT ERRORS 
! 
BAD PART? 
TYPE <RECORD DOES NOT EXIST,» 
BRw GET,PART,NO 
; 
y ALL OONE # CLOSE FILES AND EXIT 
H 
DONE? $CLOSE FABSINFAB 
$CLOSE FABRTYPE,FAB 
SCLOSE FABEPROMPT,_FAB 
EXIT? SEXIT,S R@ 
; 
I++ 
Figure 


= Dewees WD wwe “Ww Zs 


PART # OF RECORD TO RETRIEVE 


FIRST 4 CHARACTERS OF THE PART # 
SET TO 1-IF RELATED RECORD SEEN 


OPEN INPUT FILE 
BRANCH ON ERROR 
CONNECT STREAM 
BRANCH ON ERROR 
INITIALIZE TYPE AND PROMPT FILES 


GET PART NUMBER 
BRANCH IF DONE 
MOVE PART NUMBER INTO THE 


KEY BUFFER, ZERO FILLING 
KEY ACCESS TO ACCESS RECORD 
WITH SPECIFIED PART # 

GET RECORD WITH PARTMBKEY 
BRANCH IF RECORD NOT FOUND 
MODIFY DISCOUNT TYPE TO °A* 
UPDATE RECORD, WITH NEW 
DISCOUNT TYPE 

BRANCH ON ERROR 


SAY NO RELATED RECORDS SEEN 


SAVE FIRST 4 CHARACTERS OF 
PART # TO MATCH 


PRINT RECORD 
BRANCH ON ERROR 


SWITCH TO SEQUENTIAL ACCESS 
GET NEXT RECORD 

ENO OF FILE? 

IS THIS A MATCH? 

ALL OONE MATCHING 

BRANCH IF HEADER HAS ALREADY 
BEEN PRINTED 

LOOP TO GET NEXT MATCH 


BRANCH IF RELATED RECORDS PRINTED 


LOOP TO GET NEXT PART # 


LOOP TO GET NEXT PART # 


5-3 (Cont.) Random Read of an Indexed File 
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146 3 

147 3 SUBROUTINE TO INITIALIZE THE TYPE AND PROMPT FILES 
146 3 

149 jeux 

152 INIT, TYPEs . 

151 SCREATE FABsSTYPE,FAB 

1Se SOPEN FABaPROMPT, FAB 

153 SCONNECT RABRTYPE,RAB 
154 SCONNECT RABsPROMPT,RAB 
155 RSB 

156 

157 eEND BEGIN 


Figure 5-3 (Cont.) Random Read of an Indexed File 


APPENDIX A 


PROGRAM EXAMPLES 


This appendix contains additional program examples that you can 
examine to gain a better understanding of VAX-11 RMS. They are 
somewhat more detailed than the examples in Chapters 4 and 5; but you 
may find that a study of their construction, in conjunction with the 


VAX-11 Record Management Services Reference Manual, is quite 


beneficial. 


REORDER 


e INDICATE REORDERED ITEMS 


aaa 

QOae 

2AGB 

Bane 

Zdae 

Zaa@ 

2aae 

Bdaeg 

AG? 

AAAA 

2AAP 

GAA 

AAAG 

Zave 

Beas 

AAAA 

gave 

eAaag 

A2AaGA 

ABA 

PBA 

ARPAALESS Bara 
2AGARABS 

AAA 

AAA 

AASB 

ACo4 

vyeg4 

VOES 

Ye@ES 

BAEG 

a128 

4178 

a1ec 

a16C 

a18C 

@eaenaes aLaC 
2ZAaA@C@L14 |a1aC 
AMABABAH BIBC 
ABBBAAABS BisSC 
CAACAAST a1AC 
216C 

@18C 

G@eeaici  sBiAc 
@eaaeice @aici 
@A@AA106 alice 
C@@eeZidA w106 
QO@S@Q10E B1DA 
@OAGG@1E7 B1DE 
@A@G@G1iEE 91E7 
B1EE 


_— 
QOOnN CV SW 


21eJUL=1978 14236223 VAXeiil MACRO X@,3-9 Page | 
(1) 
eTITLE REORDER = INDICATE REOROERED ITEMS 
$ 
3 PROGRAM TO READ THE OLD INVENTORY MASTER FILE AND CREATE A 
3 NEW MASTER FILE, RECOGNIZING THOSE ITEMS WITH AN ON@#HAND 
s QUANTITY LESS THAN THE REORDER QUANTITY, AND SETTING THE REORCER 
] DATE IN THE NEW MASTER FILE TO TODAY’S DATE, ANO LISTING THE 
3 RECORD ON SYSSOUTPUT, 
3 
eMACRO TYPE STRING ’ MACRO TO TYPE "STRING" 
e SAVE ¢ SAVE CURRENT PSECT 
ePSECT TYPE_STRINGS,NOWRT s CHANGE TO TYPE STRINGS PSECT 
eee \MPAS, s NOTE ADDRESS 
eASCII NSTRINGN + STORE STRING 
coe! MPLa,=.4,TMPA ; NOTE LENGTH 
eRESTORE ? BACK TO ORIGINAL PSECT 
MOVL HeeeTMPA, TYPE RAB+RABSL REF : SET STRING ADDRESS 
MOVW Meee MPL, TYPE, RABSRABSW_RSZ s SET STRING LENGTH 
SPUT RABaTYPE_RAB : WRITE THE RECORD 
2c NOM 
3 
REC, SIZEs82 3 RECORD LENGTH 
ePSECT OATA,LONG 
TYPE, FAB? $F AB FNMa<SYSSOUTPUT 32,2 3s FAB FOR USE WITH TYPE “ACRO 
RAT=CR 
TYPE _RABs $RAB FABSTYPE FAB y RAB FOR USE wITH TYPE HACRO 
3 
INFAB? $F AB FNMS<INFILE ¢> 
INRABR: $RAB FABSINFAB,= 
UBFSREC_BUFFER,= 
USZBREC SIZE 
OCUTFABs: SFAB FNMECOUTFILE3:> 
CUTRABs $RAB FABSOUTFAB 


F 
9 DEFINE FIELDS OF RECORD 


, 

PART NO ,LENS5 

PART, DESC ,LENz20 

QTY, LENG 

DATE.LENS9 

PRICE_LENS7 

§ 

REC BUFFER? 

PART NUMBER? e8LKB PART,NOLLEN 
DISCOUNT TYPE: ,8LKB 1 

PART ,_DESCRIPT: .BLKB PART, DESC LEN 
QTY,_ON, HAND? eABLKB QTY,LEN 
REORDER, QTY: e8LKB8 OTY,LEN 
REORDER DATE? eS8LKB DATE,LEN 
LIST. PRICES e8LKB PRICE LEN 


T°W 


NOILWZINVONO FIIA IWILNGNOGS -- AGOW SSAOOW GuOOaU IVILNgaNOOaS 


SdTdWWXd WWHDOUd 


REORDER 


= INDICATE REORDERED 


@1EE 

O1EE 

O1EE 

26 ALEE 
@@AQQ1F4 BLEF 
eG @ai1Fa 
PZAGB209 = BIFS 
28 22 2A 0209 
G@agA21e2 Ae2ve 
292 20 28 #212 
26009218 2217 
eBeaaeBeD 8218 
@2 6218 

e2ic 

@2iCc 

24882088 a221c 
2GGGR224" 2228 
22988228 Bees 
Q@2a@Z22D A228 
ABAAA22F Bee! 
BOAABAGS 

280A 

2288 

8898 

8800 

2980 


ITEMS 


2leJUL@1978 14336223 


53 3 

S54 » ®BUFFER TO FORMAT PRINT RECORD 

55 3 

S6 TYPE,BUF?: eASCII / / 

S7 TYPE,PART?: eBLKB PART NOLEN 
58 eASCIIT f+ 

59 TYPE,DESC: e8LKB PART,DESC LEN 
68 eASCII / / 

61 ON, HAND? eBLKB QTY LEN 

62 eASCII / / 

63 REORDER? eB8LKB OTY,LEN 

64 TYPE_LEN3, «TYPE, BUF 

65 HEADINGS eBYTE @ 

66 eALIGN LONG 

67 3 BUFFER TO GET CURRENT DATE 

68 DATE_BUF? e LONG i1 

69 «LONG TODAYS DATE 
72 TODAYS,_DATE: eGLKB 7 

71 YRLCENTURY: eBLKB 2 

72 YEAR? eB8LKB 2 

74 ePSECT CODE,NOWRT 

75 3 

76 3 

77 3 GET TODAY’S DATE 
78 3 

79 


VaXe11 MACRO X@,39 


DD=M0ON@ 
YY 
YY 


ww =68 “eS Be ce 


INITIALIZATION = OPEN INPUT AND OUTPUT FILES, CONNECT STREAMS, AND 


LENGTH OF BUFFER 
ADDRESS OF BUFFER 


Page 


2 


SATdWVWXd WWYSOUdd 


REORDER 


38 


14 
a3 


ED 


agaaeecB Er 


GF 


AF 


23 


90800106 °EF 


O2808224°EF 


OAAAA21B°EF 


A90G818C °EF 
200081C2°EF 


S@ABA2GE EF 


5@ 


Sve 


52 


M1 AF 


56 


VABBLACD*EF 


53 
54 


Su 


QaC2 


AY 
Q@OGAG1DA°EF 


@3 


9a9c 


a9 
O2AASIDE°EF 


al 
3E 


85 
ABBAGLEF °EF 
14 
O@OAG1F5°EF 
80000106°EF 


ABAD 


E9 


E9 
EA 
31 


ES 


ES 


ES 


E8 
a 
29 


19 
31 
26 


Ee 


28 
26 
De 


= INDICATE REORDERED ITEMS 


Bee 
gee2 
QF 
@a12 
2012 
@ai2 
ea12 
9031 
ABSA 
PA3D 
AQUA 
ea4d 
ga52 
ease 
2°50 
AG6B 
Ba73 
QO7E 
2O7E 
2068 
Aase 
A098 
AA9E 
COE 
@eBO 
aaoc 
aaoc 
2a0C 
2A0C 
agoc 
aa0c 
@AE9 
AMEC 
VAEF 
@AF6 
@aFB 
QoFB 
@aFD 
2122 
@107 
@1@C 
@12C 
@113 
a114 
2133 
@152 
2152 
@159 
@15€ 
8165 
G16A 


&@ 
81 
Be 
83 
8a 
85 
8&6 
87 
88 
89 
928 
91 
92 
93 
94 
95 
96 
97 
98 
99 
1Ad 
1ai 
1v2 
1a3 
iad 
1a5 
1a@6 
1A7 
108 
1@9 
119 
111i 
lie 
113 


114 
115 
116 
117 


118 
119 


12e 
121 
i22 
123 


124 


{25 


21eJUL=1978 14336323 VAXeoi{ MACRO X8,349 Page e 
C1 
START3 2WOROD 
SOPEN FABSINFAB : OPEN INPUT FILE 
BLBC RO,EXIT! 3 BRANCH ON ERROR 
$FAB STORE FABRZOUTFAB,= ¢ INITIALIZE OUTPUT FAB FROM INPUT 
RFMaFABSB REFM+INFAB,& » SET RECORD FORMAT 
MRSaFABSW,MRS+INFAB,@ y SET RECORD SIZE 
RATSFABSB RATS INFAB y SET RECORD ATTRIBUTE 
SCREATE FABSRA 9 OPEN OUTPUT FILE 
BLBC RO,EXIT1 3 BRANCH ON ERROR 
SCONNECT RABREINRAB 3 CONNECY INPUT RAB 
BLBS R@,CONTS 9 BRANCH ON SUCCESS 
EXITi: 8Rw EXIT ¢ BRANCH ON ERROR 
CONTi: S$CONNECT RABZOUTRAS ¢ CONNECT OUTPUT RAB 
BLAEC RA@,EXIT! y BRANCH ON ERROR 
SASCTIM,S TIMBUFRDATE, BUF 3 GET CURRENT DATE 
MOVW YEAR, YR CENTURY 3 MAKE INTO "YY" FORMAT 
9 CRATHER THAN "YYYY*") 
SOPEN FABRTYPE,_FAB 9 OPEN REPORT FILE 
BLSC R@,EXIT! : BRANCH ON ERROR 
SCONNECT RABSTYPE_RAB » CONNECT REPORT RAB 
BLAC  —S- R@, EXIT1 | ) BRANCH ON ERROR 
TYPE <LIST OF INVENTORY ITEMS BELOw REORDER POINT> 
TYPE 


COPY RECORDS FROM OLD MASTER TO NEW MASTER CHECKING QUANTITY 


’ 
} 
: ON HANO VS, R 
; 
R 


SGET 
BLBS 
BRw 
CMPC3 


Eads 


12$% 


BLSS 
BRW 


23s: MOVC3 


aB8ss 
TYPE 
TYPE 
REPORTL_ITEMs 
MOVC3 
MOVC3 


MOVL 


EORDER QUANTITY 


RABSINRAB ] 
RO,19S 5 
DONE 

ROTY_ LEN, QTY _ON, HAND, REORDER QTY 


; 
ees 3 
WRITE ? 

T 


#DATE LEN, TODAYS, DATE,REORDER, DATE 


, ’ 
#1,HEADING, REPORT ITEM 3 
<PART # PART DESCRIPTION 


#PART, NOLEN, PARTNUMBER, TYPE PART 


READ A RECORD 
BRANCH ON SUCCESS 
FINISH BRANCH ON ERROR 


ON@HAND LESS THAN REORDER QTY? 
BRANCH IF YES 
OMIT REORDER PROCESSING YF NOT 


SET REORDER DATE TO TODAY*’S DATE 
BRANCH IF HEADING ALREADY PRINTED 


ON HAND REORDER PT,> 


BUILD REPORT RECORD 


#PART. DESC,LEN, PART, DESCRIPT, TYPE, DESC 


QTY.ON, HAND, ON, HAND 


SATdWWXad WYeDOUd 


REORDER 


O8808217°EF 


2 


GaGBo21F°EF 


= INDICATE REORDERED ITEMS 


BAGAZiIDACEF 


$2 
=e 
FFeB 


a1 
iF 


va 


Es 
i1 
31 


EQ 


0175 
0182 
2182 
0159 
2193 
@19C 
@1A9 
@1AC 
JLAE 
@1iBt 
0161 
0181 
8161 
2181 
@1BE 
21C8 
210e 


8103 


B1Fe 
81Fe2 
OiFF 
8288 
8208 


126 
127 
128 
129 
13@ 
131 
i3e2 
133 
134 
135 
136 
137 
138 
139 
148 
144 


142 
143 


144 


145 
146 
147 
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MOVL REORDER, QTY, REORDER 
SRAB, STORE RABBTYPE,RAB,= 
RBFaTYPE,BUF,= 
RSZ##TYPE LEN 
SPUT RABSRO 
WRITES SPUT RABSOUTRAB 
BLBS RO,READL 
BRB EXIT 
READi: BRW READ 


’ 
, ALL SET © CLOSE FILES ANDO EXIT 
S 
DONE: SCLOSE FABsINFAB 
SCLOSE FABSOUTFAB 
888 #1,HEAOING, CLOSE_TYPE 


TYPE ——- <NONED> 
CLOSE, TYPE? 
 $CLOSE + FABSTYPE,FAB 
EXIT:  SEXIT 8 R@ 


eEND START 


VAXe=4{1 MACRO X@,329 Page 4 


== “6 “8 WW we 


(1) 


PRINT REPORT RECORD 
WRITE NEW MASTER RECORD 
BRANCH TO READ 

BRANCH ON ERROR 

BRANCH ON SUCCESS 


BRANCH IF HEADING PRINTED 


INDICATE NO ITEMS REORDERED 
INDICATE NO ITEMS REORDERED 


SHIdWVWXG WYYSOUd 


DISPLAY = DISPLAY RELATED RECORDS 


208 
2888 
Q28a@ 
2000 
280@ 
2800 
@aGQ 
2AG@ 
aeae 
ageaea 
A098 
PAA8 
@@aaZ 
2000 
Bese 
gaaa 
ABBA 
2aAagQ 
dase 
OHRAA 
AG2B 
J8A8@ 
ARAA 
GGae 
aaae 
2800 
Abas 
4830 
AAaB 
42@GQ 
@E48 
2800 
BACA 
6898 
eee 
2400 
ABBA 
aaaa 
A008 
Gana 
2030 
2020 
8202 
BAG0 
AZAABABS 
8800 
GA08 
A852 
22940 
QGE& 
QBE4 
OGE4 
AGE4 
2128 
0128 
9128 
8128 


> oe 
—O 0 @~ 4a UN & ia fy oo 


a ee 
O BN OUT E Ui fu 


fw Pu tu fo 
wre DD 


des Ue Tu Pu Pu Py fo fy 
-}) O On ew & 


WW 
E ui tu 


Ll lt Ul Ut ld 
omnrcu 


£ 
iJ 
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14eJUL©1978 122533213 VAX=14 MACRO XA, 3011 Page { 
(1) 
»eTITLE OISPLAY = DISPLAY RELATED RECORDS 
, 
y PROGRAM TO ACCEPT RECORD NUMBER FROM OPERATOR AND OISPLAY 
y CORRESPONDING RECORD AS WELL AS ALL SUBSEQUENT RECORDS THAT 
¢ MATCH THE FIRST FOUR CHARACTERS OF THE PART NUMBER, 
3 MODIFY THE DISCOUNT TYPE FIELD OF THE FIRST RECORD ACCESSED 
TO CONTAIN AN °A*, 
3 
~MACRO TYPE STRING 9 MACRO TO TYPE "STRING" 
2 SAVE 9 SAVE CURRENT PSECT 
ePSECT TYPE, STRINGS, NOWRT ¢ CHANGE TO TYPE STRINGS PSECT 
eee TMPAR, + NOTE ADDRESS 
eASCITI NSTRINGN 3 STORE STRING 
eoe MPLB, @,.eTMPA ’ NOTE LENGTH 
eRESTORE 3 BACK TO ORIGINAL PSECT 
MOVL Meee TMPA, TYPE,RABSRABSL RAF 3 SET STRING ADDRESS 
MOVW HeeeTMPLe TYPE, RABFRABSW,RSZ 3 SET STRING LENGTH 
SPUT RABSTYPE_RAR 3 WRITE THE RECORD 
aE NOM 
; 
2MACRO PROMPT STRING : MACRO TO ACCEPT INPUT 
¢ FROM SYSSINPUT, PROMPTING 
9 WITH *®*STRING* 
2 SAVE : SAVE CURRENT PSECT 
»PSECT TYPE,STRINGS, NOWRT 9 CHANGE TO TYPESTRINGS PSECT 
wee TMPAR, $ NOTE AaODRESS 
eBYTE 13, 19 ¢ CARRIAGE RETURN, LINE FEED 
eASCII N\STRINGN ¢ STORE STRING 
eoe tT MPL, meee \lMPA ’ NOTE LENGTH 
eRESTORE ¢ 8ACK TO ORIGINAL PSECT 
MOVL HeeeTMPA, PROMPT _RAB*RABSL, PBF 3 SET PROMPT BUFFER ADDRESS 
MOVB MeeetMPLe PROMPT, _RAB+RABSB,PSZ 3 SET PROMPT BUFFER SIZE 
SGET RAB 2 PROMPT ,RAB » GET THE INPUT 
MOVZWL PROMPT, RAB*RABSHRSZ, Ri 3 GET INPUT LENGTH 
MOVL PROMPT RAB+RABSL,RBF,R2 : GET INPUT ADDRESS 
eENOM 
3 
eMACROQ ON,ERROR DEST, ?L 3 MACRO TO GRANCH ON ERROR 
8LBS RBel y BRANCH ON SUCCESS 
BRw CEST + LONG FORM OF BRANCH 
Ls 
eENDM 
? 
ePSECT DATA,LONG 
TYPE _FABs SFAB FNM@<SYSSOUTPUTs>,= 
RATacrR 
TYPE, RAGS $RAB FaBaTYPE,FAB 
PROMPT FAB? $FAB FNMa<SYSSINPUT 3> 
A PROMPT RABE SRAB FAB2PROMPT,FAB,@ 
UBFsPROMPT__BUFF,= 
V8Z2132,@ 
ROP sPMT 
| 
’ 
INFAB: SFAB FNMS<INFILEs>,@ 
FACS<UPD> 


NOILVZINVOYO ATId GAILVTGY -- SSHD0V GUODTM WOGNWY Z°v 


SATdWNWXqd WwdSOud 


DISPLAY 


2000274 °EF 
OdenvesS°EF 


2A800278°EF 


36 
90880278 °EF 


Beaeve7C°EF 


e DISPLAY RELATED RECORDS 


G2890248 
88888272 
Ge082e32 
69908245 


9088278 
8eee2e7C 
aeeeaser7c 


178 
6178 
0178 
2178 
8176 
@1BC 
@1BC 
@248 
G27e 
@27e2 
@272 
R274 
A278 
a2a7C 
B27C 
B27Cc 
Be7C 


2QAABB8O 


88890 


8289 39 


@181 30 
25 08 


41 8F 9@ 


@ABAR27C PEF 94 
QYOAGLAB*FF 028 


52 E9 
QBGAG1 AG FF D1 


29 12 
@1 E2 


8000 
@6ee 
OBOF 
2015 
2822 
4028 
AG2B 
2e28 
8928 
8628 
6028 
0358 
JOSE 
4A61 
BBO? 
AGE 
AQ6E 
3879 
4086 
988C 
Ba94 
ABAL 
QQA7 
2aceé 
aecc 
GQD7 
AG07 
2007 
@G07 
aBEE 
BOFT 
SBFD 
8128 
8198 
@111 
8114 
GLiF 
O1IF 
@121 


58 
59 
68 
61 
62 
63 
64 
65 
66 
67 
68 
69 
72 
71 


73 
74 
75 
76 
77? 
78 
79 
4 
81 
82 
83 
84 
85 
86 


88 
8&9 


91 
92 
93 
94 
95 
96 
97 
98 
99 
180 
181 
ide 
103 
1304 
125 
106 
187 
188 
1a9 
112 
111 
112 
113 


11a 
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INRAB: SRAB FABBINFAB,®= 

USZBREC, BUFFER, SIZE,= 

KBFSKEY,= 

RACRBKEY 

] 

PROMPT, BUFF ¢ e8LKB 132 

REC, BUFFER: © eBLKB 58 

REC, BUFFER, SIZEm, REC, BUFFER 
DISCOUNT. TYPESREC, BUFFER?5 
eALIGN LONG 

KEY? eBLKL 1 

MATCH PARTNO? eBLKL 1 

MATCH FLAG? e8LKB @ 


’ 
3 OPEN FILE,CONNECT STREAM 
3 


ePSECT CODE,NOWRT 
BEGIN: ,WORD @ | 
SOPEN FABaINFAB 
ON. ERROR EXIT 
SCONNECT RABRINRAB 
ON, ERROR EXIT 
BSBw INIT TYPE 
; 
: ACCEPT NUMBER OF RECORD TO BE DISPLAYED 
? 
GET,REC,NO? | 
PROMPT <ENTER RECORD NUMBER?> 
ON, ERROR DONE 
BSBW CONVERT,KEY 
ON ERROR BAD_KEY 
MOVE R3,KEY 
$RAB,STORE RABRINRAB,= 
RACRKEY 
SGET RABRINRAB 
ON, ERROR BAD PART 
MOVB #*°4/k/,DISCOUNT, TYPE 
SUPDATE RABZINRAB 
ONL ERROR EXIT 
TYPE <RECORD CHANGED TOs> 
CLRB MATCH FLAG 
MOVL @INRAB+RABSL,RBF, MATCH, PART,NO 
DISPLAY? 


SRAB, STORE RABaTYPE_RAB, «© 
RBFse@INRABSRABSL,RBF,@ 
RSZSINRAB+RABSW,RSZ 

SPUT RABaRO | 

ON, ERROR EXIT 

SRAB, STORE RABBINRAB,RACSSEQ 

GETSEG: 

SGET RABERQ 

BLAC RO, CHECK, DELETED 

CMPL @INRAB+RABSLRBF, MATCH, PARTNO 


BNEQ CHECK, OELETEO 
8BSS #1,MATCH FLAG, DISPLAY 


VAXe11 MACRO X8,3-11 


~~ 4S 8] 88 WS eo we “8 © “8 OW 


= 


USER RECORD BUFFER 


RECORD NUMBER TO RETRIEVE 
FIRST 4 CHARACTERS OF PART NUMBER 
SET TO 1 IF RELATED RECORD SEEN 


OPEN INPUT FILE 
BRANCH ON ERROR 
CONNECT STREA™ 
BRANCH ON ERROR 
INITIALIZE TYPE AND PROMPT FILES 


GET RECORD NUMBER 

BRANCH ON ERROR (E.G., EOF) 
CONVERT KEY TO SINARY 
BRANCH IF BAD 

SET RECORD NUMBER 

SPECIFY KEYED ACCESS 


GET RECORD FOR PART 

BRANCH ON ERROR 

MODIFY DISCOUNT TYPE 

WRITE BACK MODIFIED RECORD 
BRANCH ON ERROR 


SAY NO RELATEN RECORD SEEN 
SAVE PART NUMBER TO MATCH 


PRINT RECORD 
BRANCH ON ERROR 
SWITCH TO SEQUENTIAL ACCESS 


READ NEXT RECORD 
BRANCH ON ERROR 

DO FIRST 4 CHARACTERS 
OF PART NUMBER MATCH? 


BRANCH IF HEADER ALREADY PRINTED 


SHIMWVXd WVYDOUd 


DISPLAY 


@ABOCR00° BF 


@BCOA27C PEF 


53 
A2 


a9 


53 


54 


AE 
8D 


Se 
21 


94 


@1 
if 


FE6O 


FE6B 


FEU 


53 
13 
QA 
16 
30. 
54 
12 
5a 
@8 
$4 
$1 
E9 
@1 


$d 


11 


D1 
i2 


11 
E@ 


31 


31 
31 


7 
11 
Cu 
10 
83 


19 


91 


1A 
Ca 
07 
i8 
Da 
85 
Da 
@5 


= DISPLAY RELATED RECORDS 


a128 
@129 
a148 
O1i4A 
Gida 
@151 
#153 
8172 
@174 
@174 
@178 
A17C 
2198 
A198 
G19E 
A19E 
Z19E 
BI9E 
4180 
A1CS 
@1OF 
@C1E2 
G1E2 
A1E2 
B1Ee 
G1E2 
SiEF 
“iFC 
A209 
Geil2 
@2le2 
A212 
Gele 
¥vei2 
¥e212 
Bele 
#212 
@212 
Z212 
G212 
@2ie 
G214 
@216 
#219 
3218 
G21E 
B2i1F 
8221 
224 
8226 
8229 
82268 
g2eD 


0230. 


@231 
2233 
@234 


115 TYPE 
116 BRB 

117 CHECK DELETED: 
118 CMPL 
119 BNEQ 
120 TYPE 
121 BRB 

122 CHECK RELATED? 
123 BBS 

i24 TYPE 
125 GETNEXT? 

126 BRW 

127 3 

128 3 REPORT ERRORS 
129 3 

130 BAD KEY: 

131 BRW 

132 SAD PART? 

133 BRW 

134 

135 3 

136 3 ALL DONE = € 
137 3 

1368 DONE? $SCLOSE 
139 $CLOSE 
142 SCLOSE 
141 EXIT: SEXIT LS 
142 34+ 

143 3 

144 34 

145 3 

146 3 INPUTS? 

147 3 

148 3s OUTPUTS: Rg 
149 3 R3 
150 3 Rie 
151 3s 

1S2 CONVERT _KEY:3 
153 CLRO 
154 BRB 

155 1083 MULL2 
156 BVS 

157 SUBB3 
158 BLSS 
159 CMPB 
168 BGTRU 
161 ADDLe2 
162 2083 DECL 
163 BGEQ 
164 MOVL 
165 RSB 

166 3083 CLRL 
167 RS$8 

168 3+¢ 
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<RELATED RECORD(S) 29> 
OISPLAY 


RG, #RMSS_RNE 

CHECK, RELATED 

<OELETED RECORD SKIPPED> 
GETSEO 


#1, MATCH, FLAG, GETNEXT 
<NO RELATED RECOROS,> 


GET, REC,NO 


TYPE <BAD KEY VALUEI> 
GET,REC,NO 

TYPE <RECORD DOES NOT EXIST,> 
GET,REC,NO 


LOSE FILES AND EXIT 


FABZINFAS 
FABSTYPE_FAB 
FAB2PROMPT FAB 
R@ 


~ STATUS CODE 
= BINARY VALUE 
R2, RG DESTROYED 


R3 

20S 

#10, R3 

388 

#°A/B/—e (R24, RG 


30$ 
RQ, #* 4/9/07 A/8/ 
308 

Ra, R3 

R{ 

108 

#1, RO 


YVAXe}] MACRO X8,3-11 Page 3 


(1) 


WAS ERROR RECORD FOUND? 
BRANCH IF NOT 


GO GET NEXT RECORD 


BRANCH IF RELATED RECORDS PRINTED 


LOOP 


SUBROUTINE TO CONVERT ASCII INPUT STRING TO BINARY 


Rig R2 # LENGTH AND ADDRESS OF INPUT STRING 


INITIALIZE OUTPUT VALUE 

GO CHECK TF ANY CHARACTERS 
SHIFT PARTIAL RESULT 

BRANCH ON OVERFLOW 

GET BINARY VALUE FOR CHARACTER 


BRANCH IF BAO 

CHARACTER > 9 ? 

BRANCH IF BAD 

ADD IN CHARACTER TO PARTIAL RESUL 
ANY MORE INPUT? 

BRANCH IF MORE 

SHOW SUCCESS 


SHOW FAILURE 


SHIMNVXd WWYDOUd 


DISPLAY ~ DISPLAY RELATED RECORDS 


a5 


2234 
0234 
234 
A2e30 
2234 
8234 
S241 
@24E 
8258 
A268 
6269 
A269 


169 
176 
171 
iv2 
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3 
3 SUBROUTINE TO INITIALIZE THE TYPE AND PROMPT FILES 


173 INIT.TYPES 


174 
175 
176 
177 
178 
179 
18@ 


SCREATE FABSTYPE,FAB 
SOPEN FABsPROMPT,FAB 


SCONNECT RABSTYPE,RAS 
SCONNECT RAB = PROMPT,RAB 
RSB 


eEND BEGIN 


Page 


q 
(1) 


SUIMNVWXd WVYDOUd 


O[-V 


REORDER 


INDICATE ITEMS TO REORDER 


2800 
2200 
2880 
2080 
2280 
8809 
A080 
20a@Aa 
a9ea 
aaa 
gaea 
7aaa 
AaBA 
e200 
AeA 
Caan 
aaa 
aoaa 
2eoa 
cone 
Gaga 
area 
gaaa 
eaea 
2208 
aaea 
28a” 
@gaen2e32 agen 
aaaaaane 
eee? 
“BBA 
2252 
2394 
aaga 
@GE4 
AOE 4 
Zea 
9128 
0128 
#128 
2178 
0178 
0178 
@1BC 
@18C 
@1BC 
G1BC 
A1BC 
B1BC 
giBC 
918C 
BiFC 
@1iFC 
@L1FC 
ALFC 
B1FC 
@23C 


ee ee ee ee 
QOOeOnNFWMWSEWY DO GSAAC ALE Ut 


fw tw 
Tf) 


fy fu tu fo 
NOW & UW 


fw 
oe 
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»TITLE REORDER = INDICATE ITEMS TO REORDER 


PROGRAM TO READ THE OLD INVENTORY MASTER FILE AND CREATE 
NEW MASTER FILE, RECOGNIZING THOSE ITEMS WITH AN ON@HAND 
QUANTITY LESS THAN THE REORDER QUANTITY, AND SETTING THE 


Page 


A 


REORDER 
THE 


DATE IN THE NEW MASTER FILE TO TODAY°S DATE, AND LISTING 
RECORD ON SYSSOUTPUT, 


MACRO TYPE STRING MACRO TO TYPE "STRING* 
»SAVE SAVE CURRENT PSECT 
ePSECT TYPE, STRINGS, NOWRT CHANGE TO TYPE STRINGS PSECT 
eee TMPAn, NOTE ADDRESS 


STORE STRING 

NOTE LENGTH 

BACK TO ORIGINAL PSECT 
SET STRING ADDRESS 

SET STRING LENGTH 
WRITE THE RECORD 


ASCII \STRING\ 

coe TMPLB Pe 0e TMPA 

eRESTORE 

MOVL Meee TMPAS TYPE, RAB+RABSL,RBF 
MOVW Meee TMPL TYPE, RABSRABSWRSZ 
SPUT RABSTYPE RAB 


2ENDM 
? 
»“ACRO ON,ERROR DEST, ?L » MACRO TO BRANCH ON ERROR 
BLBS R@sL y BRANCH ON SUCCESS 
BRW DEST » LONG FORM OF BRANCH 
Ls 
2ENDM 
' 
REC, SIZEaS@ ¢s RECORD LENGTH 
_«g PSECT «DATA, LONG 
TYPE FAB? $FAaB FNMB<SYSSOUTPUT>,= + FAB FOR USE WITH TRE TYPE MACRO 
RATSCR 
TYPE,RAB? SRAB PABOTYPE.FAB » RAB FOR USE WITH TYPE MACRO 
; 
INFAB: SFAB FNMS<INFILE?> 
INRARe SRAB FABaINFAB,@= 
UBFsREC BUFFER,= 
. USZEREC,SIZE. 
OUTFABs SFAB FNM2<OUTFILEt>,= 
ORGsIDX,= 
XABSKEYA 
OUTRAB: S$RAB FABSOUTFAB,@ 
RBFSREC_ BUFFER, © 
RSZSREC_SIZE 
3 . 
:s XAB°S TO ORDER THE KEYS, PART#@PRIMARY, DISCOUNT TYPE@ALT,. KEYS#1, 
i DESCRIPTION@ALT, KEY#2 
? 
KEYS? SXABKEY REFa@,< 
POSag,- 
$iZa5,° 
NXTSKEY1 
KEY 18 SXABKEY REFae{,2 
PO8e5,« 
SIZsi,e« 
FLGmeDUP, CHG>,© 
| NXTMKEY2 
KEY2: SXABKEY REFa?,@ 


1 


NOILWZINWVOYO JTId GYX9GNI -- AGOW SSHDOW GUODTA IWIINENOIS EcV 


SHIdWVX4 WWHDOUd 


TT-W 


REORDER 


INDICATE ITEMS TO 


roa’ 


22280205 
C2900A14 
88290004 
2AAAA889 
QAABAABT 


G98A8R281 
BAABALB2 
83886296 
OABAB29A 
B@RAB29E 
QQAAAR2AT? 
OAAABAAE 


20 
eBBAA284 

ea 
AABAC2CY 
20 28 2 
4040201 
ef 22 2a 
BAASeeD9 
AaBABB2B 

Ba 


048828908 


AQAADL2EY? 


A8A002EB 
@AAAB2ED 
CAASD2EF 


REORDER 


2e3c 
923C 
G23C 
g23C 
ae7C 
g27C 
B27C 
@27C 
ee7c 
C27C 
@er7e 
Be7C 
ee7c 
@27C 
ae7C 
2281 
6282 
0296 
MESA 
B29E 
Beat 
P2AE 
V2AE 
V2AE 
GeAE 
Gear 
¥eBba 
9285 
¥2Cc9 
Ar 09) 
ged4 
R205 
e209 
e209 
B204 
aedc 
a2edC 
A2ED 
G2E4 
@2EB 
Q2ED 
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PO$a6,2 
SIZs20,2 
FLGm<DUP, CHG>,& 
NXT#@ 


$ 
: DEFINE FIELDS OF RECORD 
; 


PART, NOLLENS5 

PART, OESC _LENs2e 

OTY,LENaG 

DATE, LENS9 

PRICE._LENS7 

| 

REC BUFFER? 7 
PART ..NUMBER? ~BLKB PART NO LEN 
DISCOUNT, TYPES ,BLKB 1 
PART,DESCRIPT: ,8LK8 PART DESC,LEN 
QTY,ON, HAND? ~6BLKB OTY,LEN 
REORDER OTY: ~8LKB = OTYLLEN 
REORDER, DATE? eB8LKS DATE,LEN 
LIST.PRICEs ~BLKB PRICELLEN 


3 
+ BUFFER TO FORMAT AND PRINT RECORD 
3 


TYPE, 8UFs eASCII Sf 

TYPE, PARTS ~8LKB PART,NO,LEN 
eASCII / / 

TYPE DESC: 2B8LKB PART,DESC.LEN 
»eASCII / / 

ON, MAND? eB8LKB OTY,_LEN 
eASCII / / 

REORDER? ~8LKkB QOTY,LEN 

TYPE.LENs, TYPE, BUF 

HEADINGS BYTE a 

eALIGN LONG 
: BUFFER TO GET CURRENT DATE 


DATE, BUF; »LONG 11 . 
LONG TODAYS>DATE 

TODAYS.DATES .BLKB 7 

YR CENTURY? ~8LKB 2 

YEARS ~BLKB 2 


VAX=11 Macro ¥82,23 


LENGTH OF BUFFER 
ADDRESS OF BUFFER 
DO=eMONe 

YY 

YY 


Page 


SGTdWWXad WVYOOUd 


CI-WV 


REORDER 


GBGBC2EB°EF 


BAABAL96° EF 


CACBR2E4°EF 


@ASA8209° EF 


BAGAG27C°EF 
8880262 °EF 


@88en2CD°EF 
@90GR205°EF 


INDICATE ITEMS TO RECROER 


BAGAA@2EO°EF 


a4 
COCHBAGA*EF 
a3 


BABARV]IE PEP 


O1 
3E 


as 
GBQAISL2AF “EF 
i4 
GG0902B5°EF 
29880296°EF 
GEOAB29A°EF 


aaGe 


Ba 


29 
19 


31 
2a 


Ee 


28 
28 


08 
08 


2282 
2088 
8890 
8488 
8209 
eee 
8282 
G8oF 
aats 
e015 
a815 
#215 
@A34 
eaat 
AQa7 
geS4 
G25 
2867 
4960 
2289 
@86A 
ag88 
20986 
Qa9E 
UAB 


OB! 


@0B1 
2208 
OBEF 
OSEF 
QeEF 
COEF 
GBEF 
@GEF 
aarc 
2182 
2109 
G1AE 
2112 
#113 
B1iA 
OLiF 
BilF 
A126 
9127 
@146 
A165 
Q165 
@16C 
@i71 
0178 
8170 
2188 
2193 
0193 
A193 


120 
181 
102 
103 
1a4 
i¢5 
186 
187 
108 
189 
112 
iii 
ti2 
113 
114 
115 
116 
117 
118 
119 
122 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 


137 
138 
139 


149 
141 


142 
143 
144 
145 


146 


147 
148 
149 
158 
151 
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CONNECT STREAMS, AND 


INITIALIZE OUTPUT FAB FROM INPUT 
SET RECORD FORMAT 


SET RECORD ATTRIBUTE 
CREATE OUTPUT FILE 


CONNECT INPUT RAB 
CONNECT OUTPUT RAB 


MAKE INTO YY FORMAT 
CRATHER THAN "YYYY*") 


CONNECT REPORT RAB 


L29DECH1978 S7827317 
oPSECT CODE,NOWRT 
t 
2 INITIALIZATION © OPEN INPUT AND OUTPUT FILES, 
s GET TODAY’S DATE 
’ 
STARTs .WORD 8 
SOPEN FABsINFAB s OPEN INPUT FILE 
ON, ERROR Exit y BRANCH ON ERROR 
SFAB,. STORE FABROUTFAB, © ? 
RFMaFABSB RFM*INFAB,&= ’ 
MRSsFABSWMRStINFAB,@ » SET RECORD SIZE 
RATSFABSB_RAT+INFAS ] 
SCREATE FABSOUTFAB ’ 
ON, ERROR EXIT » BRANCH ON ERROR 
SCONNECT RABSINRAB ' 
ON, ERROR EXIT. 9 BRANCH ON ERROR 
SCONNECT RABSOQUTRAB ’ 
ON, ERROR EXIT : @6RANCH ON ERROR 
SASCTIM_S TIMBUFSDATE, BUF s GET CURRENT DATE 
MOVW YEAR, YR CENTURY 1 
¢ ’ 
SOPEN FAGSTYPE, FAB 9 OPEN REPORT FILE 
ON, ERROR EXIT 7 9 S8RANCH ON ERROR 
SCONNECT RABSTYPE RAB ’ 
ON, ERROR EXIT 3 BRANCH ON ERROR 
TYPE <LIST OF INVENTORY ITEMS BELOW REORDER POINT> 
TYPE 


ON HAND VERSU 


Aj ww we (ee 


EAD: SGET 
ONL ERROR 
CMPCS 


BLSS 
BRW 
2083 MOVC3 


$ REORDER QUANTITY 


RABsINRAB 7 

: SONE 3 
#OTY, LEN, QTY, ON, HAND, REORDER, GTY3 
2as ’ 
WRITE 3 


MDATE_LEN, TODAYS, DATE, REORDER DATE 


COPY RECORDS FROM OLD MASTER TO NEW MASTER CHECKING QUANTITY 


READ A RECORD 
BRANCH TO DONE, IF FINISHED 
ON@#HAND LESS THAN REORDER OTY 


BRANCH IF YES 
OMTT REORDER PROCESSING IF NOT 


SET REORDER DATE YO TODAY’S DATE 
BRANCH IF HEADING ALREADY PRINTED 


ON HAND REORDER PT,> 


BUILD REPORT RECORD 


| 
BBSS #1,HEADING, REPORT, ITEM : 
TYPE <PART # PART DESCRIPTION 
_ TYPE 
REPORT, ITEM . | ’ 
MOVC3 #PART.NO. LEN, PARTNUMBER, TYPE,PART 
MOVES #PARTDESC_LEN, PART, DESCRIPT, TYPE,DESC 
MOVL QTY.ON. HAND, ON, HAND 
MOVL REORDER QTY, REORDER 
SRAB. STORE RABRTYPE,RAB,@ 
ROFaTYPE, BUF, < 
RSZaeTYPE LEN 


SdIdWWxXad WWudoud 


€T-WV 


REORDER 


@8AG0209°EF 


INDICATE ITEMS TO REORDER 


FFOA 


81 
iF 


31 


E@ 


@1A6 
OLAF 
@1BC 
01Ce 


‘@1C5 


aics 
e1cs 
B1C5 
21C§ 
@1D2 
O10F 
#1E6 
@1E7 
@286 
2236 
g213 
e21C 
aeic 


1$e 
153 
154 
155 
156 
157 
158 


162 
161 
162 


163 
164 
165 
166 
167 
168 


L2eDEC=1978 17327317 


$PUT  RABERG 
WRITE: SPUT  RABROUTRAB 
ON. ERROR EXIT 
BRW READ 
? 
9 ALL SET © CLOSE FILES AND EXIT 
7 
DONE?  SCLOSE FAGSINFAS 
SCLOSE FABSOUTFAB : 
BBS #1, HEADING, CLOSE, TYPE 
TYPE <NONE> 
CLOSE, TYPES 
SCLOSE FABsTYPE,.FAB 
EXIT? SEXIT.S RO 
e END START 


VAX=11 Maero V82.23 Page 
s PRINT REPORT RECORD 
3 WRITE NEW MASTER RECORD 
3s BRANCH ON ERROR 
s: BRANCH ON SUCCESS 


BRANCH IF HEADING PRINTED 
INDICATE NO ITEMS REORDERED 


4 


SAIdWVXd WYYSOUd 


vI-W 


ADOTOFILE 


ADD RECOROS TO FILE 


2488 
ABABA 
GABAA 
282e 
YOAS 
42020 
Gaga 
ABB 
BABA 
2204 
BASS 
898 
ABAA 
VA08 
UACa 
vABe 
2aag 
480@ 
AAG 
4BAB 
C0282 
JAS 
Aga 
VAAG 
AAA 
YQgav 
LAAD 
HAAG 
AQAA 
“Aaa 
HABA 
ABaA 
vaga 
DUA 
VAgea 
ABBA 
2aGH 
vagea 
A*eB 
A8se@ 
Jae 
A8aa 
UdAA 
W208 
3QBAa 
yaaa 
AGAGHBEA 
ABA 
BABS 
ABBA 
AGSO 
4geo 
¥25@ 
3694 
2GE4 
SGE4 
Z@E4 


WOeaonw AWS WN 


10 


me He Se We Te Ne TH Ne Ue 


eMACRO TYPE,STRING 


119O0FC=9i978 18:32:35 VAXe1t Maero V82,23 Page 


-TITLE ADDTOFILE - ADD RECORDS TO FILE 


THIS PROGRAM ADDS NEW RECORDS TO AN INDEXED FILE, CREATING THE 
FILE INITIALLY, IF IT DOES NOT ALREADY EXIST. 


IN ADDITION, THE UPDATE IF (UIF) OPTION IS USED ON THE S$PUT MACRO. 

IN THIS EXAMPLE, THE PRIMARY KEY IS THE PART NUMBER. WHEN A RECORD 
WITH A NEW PART NUMBER IS INSERTED, IT WILL SIMPLY BE PUT INTO THE 
FILE. WHEN A RECORD WITH AN OLD PART NUMBER IS INSERTED, HOWEVER, 

IT WILL UPDATE THE EXISTING RECORD. 

MACRO TO TYPE "STRING® 


e SAVE SAVE CURRENT PSECT 
ePSECT TYPE_STRINGS, NOWRT CHANGE TO TYPE STRING 
oee MPAE, NOTE ADORESS 


eASCII NSTRINGN 
oon TMPLB e.g TMPA 
eRESTORE 


MOVL #,.,TMPA, TYPE, RAB+RABSL,RBF 
MOVA Hee TMPL, TYPE, RAB+RABSW,RSZ 


SPUT RABSTYPE,RAB 
wENDM 


$ 
eMACRO PROMPT STRING 


SAVE 
ePSECT TYPE,_STRINGS,NOWRT 
eae MPAR, 


eASCII N\STRINGN 
eon MPLE,we eg TMPA 
eRESTORE 


STORE STRING 
NOTE LENGTH 

BACK TO ORIGINAL PSECT 
SET STRING ADDRESS 

SET STRING LENGTH 
WRITE THE RECORO 


—w %! SS SS WS fe THe 28 SS 


MACRO TO aCCEPT INPUT 
FROM SYSSINPUT, PROMPTING 
WITH ®STRING" 

SAVE CURRENT PSECT 


NOTE ADORESS 

CARRIAGE RETURN,LINE FEED 
STORE STRING 

NOTE LENGTH 

BACK TO ORIGINAL PSECT 


CHANGE TO TYPE STRINGS PSECT 


SET PROMPT BUFFER ADDRESS 
SET PROMPT BUFFER SIZE 


MOVL #.0eTMPA,PROMPT RAB+RABSL, PBF 
MOVE #.o_TMPL,/ PROMPT, RAB+RABSB,PSZ 
$GET RABsaPROMPT,RAB 

MOVZWL PROMPT_RAB+RABSW,RSZ,RI 

MOVL PROMPT, RAB+RABSL,RBF,R2 


we ©2 =~) “S SO GR 88 22 4D SO BE DE 


eENDM 
; . 
eMACRO ON,ERROR DEST,?L 3 MACRO TO BRANCH ON ERROR 
BLAS ROet + BRANCH ON SUCCESS 
BRW DEST 3 LONG FORM OF BRANCH 
L3 
eENDM 
H 
ePSECT DATA,LONG 
; 
: FABS AND RABS FOR USE WITH TYPE AND PROMPT MACROS 
; 
TYPE_FABs SFAB FNMB<SYSSOUTPUT3>,«© 
RATsCR 
TYPE, RAB? $RAB FABsTYPE,FAB 
PROMPT _FABs $FAB FNMa<SYSSINPUT3> 
PROMPT_RABS SRABS FASsPROMPT_FAB,@ 
UBF ePROMPT BUFF,< 


USZs132,° 


i 


v°Wv 


~~ JGOW SSHOOV duOodd WOUNWY 


NOILWVZINVOYO ATIA GaxXganiI 


SGTdWVXd WWdSo0ud 


GI-WV 


ADOTOFILE 


AOD RECORDS TO FILE 


A@8AGAAS2 


24280885 
04208014 
2BaAGese4 
@2000AR9 
24080027 


08289281 
288880282 
2382296 
2AABA29A 
2ABAB29E 
SOBAB2A7 
ABAGB2AE 


@8a80334 


ABEY 
4128 
“128 
7128 
0128 
#128 
A128 
2128 
#128 
8128 
4128 
#128 
¥128 
¥178 
¥178 
4178 
Y1BC 
¥1BC 
¥iBC 
v1BC 
41BC 
e1Bc 
#1BC 
ALFC 
ZiFC 
ALFC 
ALFC 
BIFC 
ge3c 
ee3c 
423C 
n23c 
223C 
a27C 
@e7C 
He7C 
veTc 
ve7C 
ee7Cc 
B27C 
we7C 
@e7Cc 
A270 
veTl 
4281 
a282 
8296 
8294 
B29E 
B2AT 
WeAaE 
G2aE 
288 


58 
59 
6a 
61 
62 


64 
65 
66 
67 
68 
69 
78 
71 
72 
73 
74 
75 
76 
77 
78 


8 
81 
82 
83 
84 
85 
86 
87 
88 
89 
99 
91 
92 
93 
94 
95 
96 
97 
98 
99 
148 
121 
102 
103 
124 
195 
186 
107 
128 
189 
118 


we 06 Te 


REC_SIZE#5@ 
INFAB: $FAB 


INRAB: SRAB 


Rte «Se Be 


EY@s $XABKEY 


KEY18 SXABKEY 


KEY28 SXABKEY 


e 
f 
° 
’ 


PART,NO,LENSS5 


PART, DESC LENa2a 


OTYLLENZ4 
DATE_LENS9 
PRICE,_LEN#7 


3 
REC, BUFFER: 
PART, NUMBER 
DISCOUNT TYPE? 
PART DESCRIPT? 
QTYLON, HANDS 
REORDER, OTY: 
REORDER, DATE? 
LIST,PRICEr 
5 

e ALIGN 
PROMPT BUFF 


L1°DEC#1978 18:32:35 


ROPsPMT 


FNME<INFILE3>,¢ 
ORGZIDX,© 
RFMsVAR,@ 
MRSSREC_SIZE,@ 
RATSZCR,2= 
FACS<PUT,UPD>,= 
XABZKEYO,© 
FOPsCIF 


FABSZINFAB,© 
RACSKEY 


DEFINE KEY XABS, ONE PRIMARY 


REF20,=< 

PQSS0,¢ 

$IZz5,° 
NXT#KEY 1 
REFEil,=© 

POS$325,< 

$IZz1,° 
FLG2<DUP,CHG>,= 
NXTZKEY? 
REF=2,2 

POSs6,¢ 
SIZ220,2 
FLGS<DUP,CHG>,= 
NXT2#9 


DEFINE FIELDS OF RECORD 
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INPUT FILE FAB AND RAB AND XABS 


FILE ORGANIZATION SPECIFIED 
POSSIBILITY IS PRESENT 

THAT IT MAY NOT EXIST 

AND THEREFORE MAY HAVE 

TO BE CREATED 


KEY AND TWO ALTERNATES 


eBLKB = PART NO,LEN 


»BLKB 


| 
eB8LKB PART, DESC,LEN 


eBLKB 8 QTYLLEN 
e8LKB QTY,LEN 


~BLKB -DATE,LEN 


.8LKB = PRICELEN 


LONG 
eS8LKB 132 


2 


SdIdNVXd WVYSOUd 


9T-V 


ADDTOFILE 


62 
BOAQAC27C°EF 
62 
aeaaeeas °EF 


62 
Dageseb2°EF 


egaae2e9o°EF 
“) 


62 


BBGA029A°EF 
a4 


62 
6E 
63 


62 


AOD RECORDS TO FILE 


Qi1EF 


51 
@3 
185 
1 
38 
@5 


S1 
2@ 
Gi 


St 
2e 
14 


3H202020 8F 
Si 

53 

GA 

Si 

8296°C3 


38202029 8F 
51 
53 
@3 
@@9D 


51 
B29A°C3 
8a 
28 
a9 


31 


0334 
8334 
8334 


82820000 


8990 


3@ 


05 
12 
34 
ec 


2c 


ec 


a 
C3 


19 
28 


02 
C3 


18 
31 


28 
2c 


ec 


AGA 
W882 
Year 
Zeer 
9@15 
A822 
2@28 
2628 
4028 
4828 
S@2B 
2928 
a7ase 
WaseE 
2060 
2362 
2865 
2268 
8869 
Qa6F 
aggc 
AASF 
3GAQ 
2@A6 
ABDS 
2009 
@e@0Cc 
@ad0 
BAEY 
112 
8116 
Viel 
6124 
@125 
4127 
B1i2a 
#120 
BiSA 
2160 
9168 
Z16E 
Bi oF 
0171 
6174 
0174 
0177 
@17A 
6170 
G1 7E 
4189 
8189 
@14a0 
64183 


= pe pe 


1 
1 
1 


& wr 
we we we 


115 
116 BEGINS 
117 
118 
119 
128 
121 
122 
123 


125 3 

126 GETNXT3 
127 

128 

129 

13 

i31 

132 188% 


133 
134 
135 


136 
137 
138 
139 


149 
141 
142 
143 
144 


145 
146 


147 
148 
149 
15@ 


151 
152 ExIvis 
153 CONT1:s 
154 


155 


156 
157 
156 
159 
168 


L1-DECe1978 18:32:35 


PERFORM INITIALIZATION 


ePSECT CODE,NOWRT 
«WORD a 
SCREATE FABSINFAB 


ON, ERROR EXIT 
SCONNECT RABSINRAB 
ON, ERROR EXIT 


BSBW INIT TYPE 


; ' 
124 3; SCOLICIT DATA FIELDS INPUT 


PROMPT <PART #3> 


ON, ERROR DONE 
TSTL RA 

BNEG 108 

BRW DONE 


MOVCS Rip (R2),#°A/8/,* 


#PART NOLEN, PART, NUMBER 


PROMPT <DISCOUNT TYPEs> 


MOVCS Rig (R2),#°%A/ /,@ 


#1,0ITSCOUNT TYPE 
PROMPT <PART DESCRIPTION?> 
ON ERROR EXIT 


MOVCS Rig(R2),#°A/ /,= 


#WPART DESC LEN, PART, DESCRIPT 
PROMPT <QUANTITY ON HAND3> 
ON, ERROR EXIT 
MOVL #° As @/,QTY,_ON, HAND 
SUBL3 R1i,#OTY_LEN,R3 


BLSS EXIT} 
MOVCS Rie CR2),QTY,ON,HAND(R3) 


PROMPT <MINIMUM REORDER QUANTITY 3> 


-ON, ERROR EXIT 


MOVL #°A/ @/,REORDER_GTY 
SUBL3 R1,#0TY,LEN,R3 


BGEG CONT} 
BRW EXIT 


MOVC3 Ri, (R2), REORDER OTY(R3) 

MOVCS #0,(SP),#"A/ /,@ 
#DATELEN,(R3) 

PROMPT <LIST PRICEs> 


ON, ERROR exit 
MOVCS R1i,(R2),#8"*A/ /,8 
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OPEN FILE IF IT EXISTS 

ELSE CREATE IT 

BRANCH ON ERROR 

CONNECT INPUT RAB 

BRANCH ON ERROR 

INITIALIZE TYPE AND PROMPT FILES 


GET NUMBER OF PART 

BRANCH IF DONE 

ANY INPUT? 

CONTINUE IF YES, 

ELSE QUIT 

MOVE PART NUMBER TO RECORD BUFFER 


ZERO FILLING 
GET DISCOUNT TYPE 
MOVE DISCOUNT CODE TO RECORD BUFF 


(BLANK IF NULL) 
GET PART DESCRIPTION 


MOVE PART DESCRIPTION TO RECORD 


BUFF, BLANK FILLING 
GET NUMBER ON HAND 


INITIALIZE BUFFER AREA 
DETERMINE OFFSET IN BUFFER AREA 


IF FIELD TOO SMALL» EXIT 
PUT IN VALUE RIGHT ALIGNED 


GET MINIMUM QUANTITY 


INITIALIZE BUFFER AREA 
DETERMINE OFFSET 


CONTINUE IF FIELD IS 0,K, 
BRANCH LONG TO EXIT 


FILL IN BUFFER AREA RIGHT ALIGNED 
BLANK REORDER DATE 

(TAKE ADVANTAGE OF ITS 

ADDRESS IN R3) 

GET PRICE 


MOVE PRICE TO RECORD SUFFER 


SGTdWWXqd WwudS0dd 


LI-W 


ADDTOFILE 


@20AG2A7° EF 


ADD RECOROS TO FILE 


2a 
67 


FE4j 


31 


a5 


41B6 
@187 
@180 
6180 
81B0 
2180 
2104 
@104 
#104 
B1E1 
ViE7 
Q1EA 
Q1EA 
ALEA 


‘O1EA 


BiF7 
8204 
B2ei1 
Bela 
@2iA 
B2iA 
G2iA 
O21A 
@2iA 
O2iA 
QeiAa 
227 
6234 
A241 
@e4eE 
B24F 


161 
162 
163 
164 
165 
166 
167 
168 
169 
172 
171 
i7v2 
173 
174 
175 
176 
177 
178 
179 
188 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
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M#PRICE_LEN,LIST PRICE 3 BLANK FILLING 
SRAB_ STORE RABBINRAS,= 3 SET UP RAB FOR NEW RECORD 
RBFSREC BUFFER,@ 
RSZs#REC_SIZE,=@ 
ROPaUIF 33 IF PART # ALREADY €XISTS, UPDATE 
RECORD WITH NEw INFORMATION 
SPUT RABZINRAB 3 WRITE NEW RECORD 
ON, ERROR EXIT 
BRW GETNXT y GET NEXT RECORD 
H 
; ALL SET @ CLOSE FILE AND EXIT 
DONE: SCLOSE FABSINFAB 
SCLOSE FABsTYPE_FAB 
SCLOSE FABsPROMPT_FAB 
EXIT: SEXIT.S RO 


++ 


we Ge te 


SUBROUTINE TO INITIALIZE THE TYPE AND PROMPT FILES 
3 

jee 

INIT, TYPE? 

SCREATE FASSTYPE_FAB 

SOPEN FABSPROMPT_FAB 


SCONNECY RABSTYPE,RAB 
SCONNECYT RABSPROMPT_RAB 
RS8 


oEND BEGIN 


SATIdNVXd Wved0ud 


APPENDIX B 


USING THE RMS FILE ANALYZER 


The RMS File Analyzer (RMSANLZ), which is not a DIGITAL-Supported 
utility, enables you to inspect the file attributes and index 
Structure of files. With the information provided, you can analyze 
characteristics of index files such as_ index tree depth and fill 
percentages. You can also analyze file corruption problems caused by 
user program errors and RMS system failures, 


You can use RMSANLZ interactively or you can direct the output to a 
listing file. The following list summarizes the operations you can 
perform with RMSANLZ: 


e Display file attributes, file header characteristics, and 
prolog information 


e Display key description information for any key of an indexed 
file 


e Display, for each index level of a key, the fill percentage, 
number of buckets, number of records, number of deleted 
records, number of record reference vectors (RRVs), and_ the 
number of deleted RRVs 


e Print, for each bucket on each index level of the key, the 
virtual block number, the number of records and RRVs, and the 
record IDs of each record 


e Display, for any bucket, the bucket control information, 
record control information, and key values 


e Display any bucket in hexadecimal dump format 


e Print detailed bucket contents of all buckets 


B.l1 USES OF RMSANLZ 
RMSANLZ has two uses: 
e To examine the characteristics of indexed files 


e To provide information on file corruption errors caused either 


by application program errors or by RMS or VMS”) system 
failures. 


When examining indexed files, RMSANLZ is useful for determining the 
effects of file activity, file loading, and file definition options. 
For example, if file size is used in loading an indexed file, RMSANLZ 
will display the actual fill percentage for further tuning in future 
file loads. 


USING THE RMS FILE ANALYZER 


RMSANLZ can also be useful in determining the need for file 
reorganization by displaying the number of deleted records and deleted 
RRVs in the file. If a large fraction of the records is deleted, then 
file reorganization may be advisable. 


Whenever file corruption errors occur and an RMS or VMS system failure 
is suspected, the complete RMSANLZ analysis of the file should be 
included with the Software Performance Report (SPR). 


B.2 OPERATING RMSANLZ 


The RMS File Analyzer (RMSANLZ) is executed by commands obtained from 
SYSSINPUT (terminal or procedure data). The output, by default, is 
sent to SYSSOUTPUT or directed to a listing file. You invoke RMSANLZ 
by typing: 


$ RUN SYSSSYSTEM: RMSANLZ 


Control is then passed to RMSANLZ, and RMSANLZ, in turn, displays’ the 
following prompt at your terminal: 


Name of file to analyze: 


You respond by typing the file specifications of the file to be 
analyzed. 


RMSANLZ then prompts for the file specification to be used for output: 
Specify output file, default is SYSSOUTPUT: 


You respond with the listing file specification, or with <RET> to 
indicate SYSSOUTPUT. 


RMSANLZ then displays the file attribute, file header, and file prolog 
information for the file. This information is in a format similar to 
a full directory listing, but is more extensive and includes 
information about file area allocations. An example is shown in 
Figure B-l. 


_DBAO: [RMS.ANLZ] ISAM. IDX:1 

Organization: Indexed with 2 defined keys 

Record Format: Variable Record Attributes: Carriage return 
Maximum Record Size: 200 bytes 

File Protection: System:RWED Owner:RWED Group:RWE World:R 
File Owner: [011,122] File ID: (7214,23,1) 

Created: 24-JAN-1980 13:48:57.82 

Revised: 24-JAN-1980 13:54:36.43 (3) 

Expires: <none specified> 


File Allocation: 72 Extension: 0 

End-of-file VBN: 52 First free byte: 0 

Allocation Attributes: = = 

Prolog version: 1l Number of areas: 2 

Area ID: 0 Area bucketsize: 3 Area extendsize: 21 
Alignment: CYL Options: Contiguous 
Current extent: Start VBN: Size: 51 Used: 21 

Area ID: l Area bucketsize: 2 Area extendsize: 10 
Alignment: None Options: 
Current extent: Start VBN: 52 Size: 21 Used: 6 


Figure B-l Sample File Attribute Listing 


B-2 


USING THE RMS FILE ANALYZER 


If the file is an indexed file, RMSANLZ then prompts for the key of 
reference to be analyzed: 


Specify key of reference, default is all keys: 


You respond with a key-of-reference number, or with <RET> to ask 
RMSANLZ to cycle through all the keys starting with the primary key. 


RMSANLZ displays the key description as shown in Figure B-2 and_ then 
prompts for the analysis operation to perform for the key: 


Operation: 
You respond with one of the following commands: 

HELP or ? or help - Print this command summary 

A (NALYZE) - Print summary of each index level including 
fill percentage, number of buckets, records 
RRVs, deleted records, and deleted RRVS 

S (HOW) -~ Print detailed bucket contents for specified 
buckets. The question "Next VBN:" asks for a 
VBN number until <RET> or EOF is entered 

L(IST) - Print detailed bucket contents for all buckets 

D (UMP) - Print VBNS in hexadecimal dump format’ for 
Specified buckets. The question "Next VBN:" 
asks for the VBN number until <RET> or EOF is 


entered 


E(XIT) or <RET> 


Exit from this key and go to command level 


Key of Reference: 0 Key Name: PART NUM _ID 
Total Key Size: 10 Minimum record length: 44 
Number of Key Segments: 2 Key Data Type: String 
Key Attributes: Duplicates No Changes 
Key Position: 16 42 
Key Size: 8 2 : 

Area numbers: Data:0 Index:l . Lowest index level:l 
Data Bucketsize: 1536 Data fill size: 1200 
Index Bucketsize: 1024 Index fill size: 600 
Index Depth: 1l Root VBN: 52 


Figure B-2 Sample Key Information Listing 


During the ANALYZE operation, if you answer yes to the question: 

See VBN, #Records, #RRVsS for each bucket? Y/N 
the VBNS, number of records, and number of RRVS per bucket will be 
printed in addition to the summary. If you answer yes to the 
question: 


Want to see record IDS for each bucket? Y/N 


the record IDs for each bucket for level 0 will be printed. The 
format of the ANALYZE operation output is shown in Figure B-3, 


USING THE RMS FILE ANALYZER 


Level Number: 1 
Level 1 Fill Percentage: 6 
Number of buckets on this level: 1 
Number of records on this level: 4 


Level Number: 0 
Bucket VBN- Recs Del recs RRVS Del _rrvs Fill’ Rec_IDs 
1 4 10 0 3 3 76 


2 1g. iy oO . 0 2 82 
i .3 4 5 6 8 9 
by 22 22: 2° 9 
3 16 2 1 0 0 23 
1 2 3 
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Level 0 Fill Percentages: 56 

Number of buckets on this level: 6 
Number of records on this level: 42 
Number of RRVsS on this level: 2 

Number of deleted RRVs on this level: 6 


Figure B-3 Sample Key Analysis Listing 


The output format for the SHOW and LIST commands includes: 
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e Bucket control data including bucket type, index level, area 


number, and free space. 


e For each record in an index bucket, the record pointer and key 


value. 


e For each record in a primary data bucket, the record size 
each key value. 


e For each record in a secondary data bucket, the key value 
all duplicate-record pointers. 


If file corruption has occurred or an invalid value is entered to 
SHOW command, RMSANLZ will display: 


*kkKKK Tnvalid Bucket VBN: n ***** 


and 


and 


the 


Using the DUMP command will allow you to examine the corrupted bucket. 
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